R 更改大于特定值的直方图条颜色

到目前为止，我已经按照下面的示例成功地在直方图中的单个条中更改了颜色

---

test基本上，您希望在
test
上使用逻辑选择器，而不是在
cut
s上

以下是剪切对象的外观：

> bks <- cut(test,10)

这里有一个使用ggplot2而不是手工切割的解决方案：

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

test更改颜色向量，
clr
，使其在条大于1时显示红色，否则显示灰色

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

clr如果你有时间的话，值得学习ggplot，更喜欢葛兰素史克的答案。基本的
hist
函数很难使其变得漂亮。可以。感谢您为我指出hist-Through的正确方向。ggplot渲染速度慢，文档质量差（geom=“histogram”文档化的选项具体在哪里？@user1244215:geom\u histogram页面上的示例非常全面。但是阅读ggplot2这本书可以说是掌握语法的最好方法。+1这是一个可爱的图形！这也适用于可变宽度的垃圾箱吗？e、 g.当使用
hist（test，breaks=c（-3，-2，-1,0,0.5,1,1,1.5,2,2.5,3）
@AssadEbrahim谢谢。ggplot2是purdy。应该能够制作可变宽度的垃圾箱，但你可能需要自己的问题来弄清楚如何：-）足够公平：）（purdy？@AssadEbrahim这是我的话，我坚持它。有趣的是，上下文造成了所有差异。专注于技术方面，而不是轻声细语，我认为purdy是一个我以前从未听说过的技术术语。现在重新阅读，一切都变得清晰起来；）（“对于那些不熟悉美国休闲习语的人来说，漂亮”）
test <- rnorm(100)
dat <- data.frame( x=test, above=test>1 )
library(ggplot2)
qplot(x,data=dat,geom="histogram",fill=above)

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