r - 用ggplot2覆盖线和hist

Question

我正在使用 ggplot 创建一个有很多情节的表格

a=rnorm(30)
b=a*a
c=rnorm(30)
d=c
l=runif(30)
m=l+3
data=data.frame(A=a,B=b,ss=1)
data=rbind(data,data.frame(A=c,B=d,ss=2))

ggplot()+ geom_line(data=data,aes(A,B,group=ss),col="red")+facet_wrap(~ ss,as.table=T 

在每个图中，我必须重叠直方图。我能怎么做？

Answer 1

这是一种方法：

ggplot() + 
  geom_line(data = data, aes(x = A, y = B), col = "red") +
  geom_histogram(data = data, aes(x = A), alpha = .5) +
  facet_wrap(~ ss,as.table=T)