r - 将 cut() 与直方图一起使用

Question

下面的代码绘制了一个直方图，其中阴影区域表示小于均值 2 个标准差、大于均值 1 个标准差等。

但是，请注意，在直方图的某些区间内，有 2 种不同的颜色。是否可以创建仅包含一种颜色的容器？

set.seed(1)
df <- data.frame(x = rnorm(10000, mean = 23, sd = 1))

ndist_probs <- c(0, 0.025, 0.16, 0.5, 0.84, 0.975, 1)

ndist_labels <- c("inf-2SD", "2-1SD", "1SD-mean", "mean-1SD", "1-2SD", "2SD-inf")

ndist_breaks <- quantile(df$x, ndist_probs)

df$ndist_breaks <- cut(df$x, breaks = ndist_breaks, ndist_labels)

library(ggplot2)
ggplot(df, aes(x)) + geom_histogram(aes(fill = ndist_breaks))

Answer 1

您可以将数据四舍五入到一位小数。

df <- data.frame(x = round(rnorm(100000, mean = 23, sd = 1),1))

如果您现在将直方图中的 binwidth 设置为 0.1，您将获得所需的结果

ggplot(df, aes(x)) + geom_histogram(aes(fill = ndist_breaks),binwidth = 0.1)