r - R - ggplot2 直方图的阴影部分

Question

所以我有这个数据：

dataset     = rbinom(1000, 16, 0.5)
mean        = mean(dataset)
sd          = sd(dataset)
data_subset = subset(dataset, dataset >= (mean - 2*sd) & dataset <= (mean + 2*sd))

dataset     = data.frame(X=dataset)
data_subset = data.frame(X=data_subset)

这是我绘制直方图的方式dataset：

ggplot(dataset, aes(x = X)) +
   geom_histogram(aes(y=..density..), binwidth=1, colour="black", fill="white") +
   theme_bw()

我怎样才能data_subset像这样对直方图的部分进行着色？

Answer 1

我的解决方案与 joran 的解决方案非常相似——我认为它们都值得关注，因为它们之间存在细微的差异：

ggplot(dataset,aes(x=X)) +
   geom_histogram(binwidth=1,fill="white",color="black") +
   geom_histogram(data=subset(dataset,X>6&X<10),binwidth=1, 
   colour="black", fill="grey")+theme_bw() 

Answer 2

只需geom_histogram使用该数据子集添加另一行（尽管您可能需要稍微修改 binwidth，我不确定）：

ggplot(dataset, aes(x = X)) +
   geom_histogram(aes(y=..density..), binwidth=1, colour="black", fill="white") + 
   geom_histogram(data = data_subset,aes(y=..density..), binwidth=1, colour="black",fill = "grey") +
   theme_bw()