R 如何在散点图象限中指定颜色？

我希望在R中创建一个散点图，该散点图中的点被分成四个象限，然后根据组对每个象限应用颜色

我使用了以下代码，但需要更改颜色

x_mid <- mean(c(max(iris$Petal.Length, na.rm = TRUE), 
                min(iris$Petal.Length, na.rm = TRUE)))

y_mid <- mean(c(max(iris$Petal.Width, na.rm = TRUE), 
                min(iris$Petal.Width, na.rm = TRUE)))
library(dplyr)
library(ggplot2)

iris %>% 
  mutate(quadrant = case_when(Petal.Length > x_mid & Petal.Width > y_mid   ~ "Q1",
                              Petal.Length <= x_mid & Petal.Width > y_mid  ~ "Q2",
                              Petal.Length <= x_mid & Petal.Width <= y_mid ~ "Q3",
                              TRUE                                         ~ "Q4")) %>% 
  ggplot(aes(x = Petal.Length, y = Petal.Width, color = quadrant)) +
  geom_vline(xintercept = x_mid) + # plot vertical line
  geom_hline(yintercept = y_mid) + # plot horizontal line
  geom_point()

x_mid x_mid&Petal.Width>y_mid~“Q1”，
花瓣长度y_中间~“Q2”，
Petal.Length如果我理解正确，唯一缺少的是手动选择颜色，在这种情况下，颜色来自象限是偶然的。否则，恐怕我错过了什么

您可以像任何其他美学方法一样指定颜色比例。特别是，scale\u color\u手册允许您为其指定要使用的颜色的字符串向量

因此，您可以在末尾添加：

scale_color_manual(values = c('orange', 'yellow', 'black', 'grey'))

如果要将特定颜色映射到每个可能的级别，可以为其指定一个命名向量：

  scale_color_manual(values = c(Q4 = 'orange', Q2 = 'yellow', Q1 = 'black', Q3 = 'grey'))

这太完美了！谢谢