ggplot geom_point（），颜色基于特定的离散值

Question

我正在尝试为三个值范围绘制三种不同颜色的数据点。例如：

library(ggplot2)
ggplot(mtcars, aes(wt, mpg)) + geom_point(aes(colour = qsec))

以上产生：

现在，我想修改它以使qseq值＆lt; 17为黑色，17到19之间的值为黄色，高于19的值为红色。我尝试了各种方法，但似乎没有一种方法可行：

• 取自here

  ggplot(mtcars, aes(wt, mpg)) + geom_point(aes(fill = qsec)) + 
  scale_fill_gradientn(colours=c("black","yellow","red"), 
  breaks=c(0,17,19), labels=format(c("0","17","19")))
  

  这会产生：

  

  因此，颜色条似乎正确但实际上并未应用颜色。

• ggplot2 heatmap with colors for ranged values中给出的解决方案似乎很有希望，但我无法让它们与geom_point()一起使用。

• 同样适用于各种类似帖子，例如侧栏中列出的帖子。

我意识到我可能需要使用某种离散比例而非scale_fill_gradientn，但我尝试使用scale_color_manual()失败：

ggplot(mtcars, aes(wt, mpg)) + geom_point(aes(color = factor(qsec))) + 
scale_color_manual(values=c("black", "yellow","red")
Error: Insufficient values in manual scale. 30 needed but only 4 provided.

我猜我会以某种方式使用cut()或factor()，但我似乎无法弄明白。有什么建议吗？

Answer 1

您需要cut您的值进入间隔：

library(ggplot2)
ggplot(mtcars, aes(wt, mpg)) + 
  geom_point(aes(colour = cut(qsec, c(-Inf, 17, 19, Inf))),
             size = 5) +
  scale_color_manual(name = "qsec",
                     values = c("(-Inf,17]" = "black",
                                  "(17,19]" = "yellow",
                                  "(19, Inf]" = "red"),
                     labels = c("<= 17", "17 < qsec <= 19", "> 19"))