r - 如何添加适合条形图的曲线

Question

如何使用类似于直方图的密度图的曲线拟合条形图？

library(ggplot2)
library(plyr)
y<-hist(rnorm(1000),breaks=30)$count

df<-data.frame(x=1:length(y),y=y,key="A")
df2<-data.frame(x=1:length(y),y=y*0.4,key="B")
df<-rbind(df,df2)

p<-ggplot(df,aes(x=x))
p<-p + geom_bar(subset=.(key =="A"),aes(y = y),stat="identity",fill = "blue", alpha = 0.2)
p<-p + geom_bar(subset=.(key =="B"),aes(y = y),stat="identity",fill = "blue", alpha = 0.2)
#p<-p + geom_density(subset=.(key =="A"), aes(y=y),alpha=.2, fill="#0000FF")
p

Answer 1

使用..density..进行转换：

data = data.frame(x = rnorm(500))

ggplot(data) + 
geom_histogram(aes(x = x, y = ..density..)) + 
geom_density(aes(x), colour = I('red'))

对于您的数据：

ggplot(df) +
geom_histogram(aes(y, ..density.., fill=key)) +
geom_density(aes(y, colour = key))

并尽量避免使用“df”之类的名称（我猜 df 是一个 R 函数）