为超过某个值的直方图着色

Question

首先我知道这个问题之前出现过，即：Change histogram bar colours greater than a certain value 但是尽管有那个线程，我还是遇到了一个令人困惑的问题。

所以，我有一些数据，在该数据中，我知道变量 house$PPSQM 有 4 个值大于 3000。所以我试图做的是绘制数据的直方图，其中所有低于 3000 的条形为红色，3000 以上的为灰色。我通过查看直方图知道有 2 个高于 3000 的条（为了清楚起见，4000 有 2 个值，5000 有 2 个）这是我使用的代码：

clr <- ifelse(houses$PPSQM>3000, "grey", "red")

hist(houses$PPSQM,ylim = c(0, 50) ,xlab="Cost per Sq. Meter",ylab='Frequency',col = clr)

但我遇到的问题是：如果我在 if-else 语句中说houses$PPSQM>3000，那么它会将所有条形都涂成红色......如果我说houses$PPSQM

关于如何解决这个问题有什么建议吗？

Answer 1

我认为您需要通过直方图中的中断而不是数据中的值来着色。试试这个：

h   <- hist(houses$PPSQM)
clr <- ifelse(h$breaks > 3000, "red", "grey")
hist(houses$PPSQM, ylim = c(0, 50), xlab = "Cost per Sq.Meter", 
     ylab = 'Frequency', col = clr)

您可能需要使用breaks 参数（请参阅?hist）来让它看起来像您想要的那样。您可能还想使用>= 3000。