如何在R直方图中为特定数据条着色

Question

如果我有直方图：

> hist(faithful$waiting,seq(min(faithful$waiting),max(faithful$waiting)))

和＃34;特殊＆＃34;频率：

> c(51, 52, 57, 59, 64)

是否可以将与这些特殊频率相对应的条纹颜色与其他组织的颜色区别开来？

Answer 1

您只需创建颜色矢量并使用col选项。

data(faithful)

# make sure frequencies in order and unique for the histogram call
special <- ifelse(sort(unique(faithful$waiting)) %in% c(51, 52, 57, 59, 64), "red", "white")

# same call with the 'col' option
hist(faithful$waiting,seq(min(faithful$waiting),max(faithful$waiting)), col=special)

Answer 2

ggplot2的乐趣...

faithful$special <- faithful$waiting %in% c(51, 52, 57, 59, 64)

library(ggplot2)

ggplot(data = faithful, aes(x = waiting, fill = special)) +
  geom_histogram(binwidth = 1, colour = 'white')