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

Question

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

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 轴值的直方图箱的颜色 - 例如，在示例中的分布 function 中高于 1。 我遇到麻烦的部分原因是我不完全理解cut()返回的因素。

Answer 1

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

这是您切割的 object 的样子：

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

然后像以前一样 plot。