3

だから私はこのデータを持っています：

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ヒストグラムの一部をシェーディングするにはどうすればよいですか?

data_subset

4

2 に答える 2

5

私の解決策は、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()

ここに画像の説明を入力

于 2012-11-12T04:26:03.297 に答える
2

そのデータサブセットを使用して別の行を追加するだけgeom_histogramです（ただし、ビン幅を少しいじる必要があるかもしれませんが、わかりません）：

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()
于 2012-11-12T04:24:46.747 に答える