我有以下数据框
x1<-data.frame(n = rnorm(1000000, mean=0, sd=1), nombre= "x1")
x2<-data.frame(n=rnorm(1500000, mean=3, sd=1), nombre= "x2")
x<-rbind(x1, x2)
ggplot(x, aes(n, fill=nombre))+
geom_histogram(alpha=0.5, binwidth=0.25, position = "identity")+
geom_density()
我想将密度图叠加到直方图上，但它看起来就像 0 中的一条细线
你需要得到geom_histogram and geom_density共享同一轴。在本例中，我通过添加以下内容指定了两者来绘制密度图aes(y=..density)期限至geom_histogram。还要注意一些不同的美学，以避免过度绘制，以便我们能够更清楚地看到这两个几何图形：
ggplot(x, aes(n, fill=nombre))+
geom_histogram(aes(y=..density..), color='gray50',
alpha=0.2, binwidth=0.25, position = "identity")+
geom_density(alpha=0.2)
正如最初所指定的，美学fill=适用于两者，因此您可以使用直方图和密度几何图来显示根据“x1”和“x2”分组的分布。如果您想要 x1 和 x2 组合的密度几何，只需指定fill=仅直方图几何的美观：
ggplot(x, aes(n))+
geom_histogram(aes(y=..density.., fill=nombre),
color='gray50', alpha=0.2,
binwidth=0.25, position = "identity")+
geom_density(alpha=0.2)
本文内容由网友自发贡献，版权归原作者所有，本站不承担相应法律责任。如您发现有涉嫌抄袭侵权的内容，请联系:hwhale#tublm.com(使用前将#替换为@)
