R - 阴影部分ggplot2直方图 [英] R - Shading part of a ggplot2 histogram

问题描述

所以我有这样的数据：

$ $ p $ code dataset = rbinom（1000,16,0.5）
mean = mean （数据集）
sd = sd（数据集）
data_subset =子集（数据集，数据集> =（平均值-2 * sd）&数据集< =（平均值+2 * sd））

dataset = data.frame（X = dataset）
data_subset = data.frame（X = data_subset）

以下是我如何为数据集绘制直方图：

  ggplot（数据集，aes（x = X））+ 
 geom_histogram（aes（y = .. density ..），binwidth = 1，color =black，fill =白色）+ 
 theme_bw（）
  

如何隐藏 data_subset 部分直方图，像这样？

解决方案

我的解决方案与joran很相似 - 我认为他们是两者都值得寻找的细微差别：

  ggplot（dataset，aes（x = X））+ 
 geom_histogram （binwidth = 1，fill =white，color =black）+ 
 geom_histogram（data = subset（数据集，X> 6和X <10），binwidth = 1，
 color =黑色，填充=灰色）+ theme_bw（）
  

So I have this data:

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)

And here's how I'm drawing my histogram for dataset:

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

How can I shade the data_subset portion of the histogram, like so?

解决方案

My solution is very similar to joran's -- I think they're both worth looking at for the slight differences:

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() 

这篇关于R - 阴影部分ggplot2直方图的文章就介绍到这了，希望我们推荐的答案对大家有所帮助，也希望大家多多支持IT屋！