r - ggplot2 geom_density 限制

Question

如何删除调用限制末尾的行geom_density？

这是一个例子：

library(ggplot2)
set.seed(1234)

dfGamma = data.frame(nu75 = rgamma(100, 0.75),
           nu1 = rgamma(100, 1),
           nu2 = rgamma(100, 2))

dfGamma = stack(dfGamma)
ggplot(dfGamma, aes(x = values)) + 
  geom_density(aes(group = ind, color = ind))

产生，

我将如何摆脱绘图边缘的垂直蓝线以及沿 x 轴运行的水平线？

Answer 1

您可以使用stat_density()代替geom_density()并添加参数geom="line"和position="identity".

ggplot(dfGamma, aes(x = values)) + 
  stat_density(aes(group = ind, color = ind),position="identity",geom="line")

Answer 2

另一种似乎产生相同结果的方法：

ggplot(dfGamma, aes(x = values, color=ind)) + geom_line(stat="density")