更改大于某个值的直方图条颜色

Question

到目前为止，我已经设法按照示例 here 更改直方图中单个条的颜色

test <- rnorm(100);
h <- hist(test);
b <- cut(1, h$breaks);
clr <- rep("grey", length(h$counts));
clr[b] <- "red";
plot(h, col=clr);

我希望能够更改高于某个 x 轴值的直方图箱的颜色 - 例如在示例中的分布函数中高于 1。我遇到问题的部分原因是我不完全了解cut() 返回的因素。

Answer 1

从根本上说，您希望在test 上而不是在cuts 上使用逻辑选择器。

您的剪切对象如下所示：

> bks <- cut(test,10)

级别是字符类型：

级别（bks） 1 "(-2.53,-2.01]" "(-2.01,-1.5]" "(-1.5,-0.978]" "(-0.978,-0.459]" [5] "(-0.459,0.0596]" "(0.0596,0.578]" "(0.578,1.1]" "(1.1,1.62]"
[9] "(1.62,2.13]" "(2.13,2.65]"

数据是数字类型：

> head(as.numeric(bks))
[1] 5 6 6 6 3 5

这是一个使用 ggplot2 而不是手动切割等的解决方案：

test <- rnorm(100)
dat <- data.frame( x=test, above=test>1 )
library(ggplot2)
qplot(x,data=dat,geom="histogram",fill=above)

Answer 2

更改您的颜色矢量clr，使其在条形大于 1 时显示红色，否则显示灰色。

clr <- ifelse(h$breaks < 1, "grey", "red")[-length(h$breaks)]

然后像以前一样绘制。