R 使用ggplot的绘图中的颜色特定点

我正在与ggplot2斗争。实际上，我想给散点图中的一些特定点上色

让我解释一下我对“mtcars”数据的问题。 我已将“mpg”与“wt”进行了对比

在此之后，我想突出显示所有hp为180（蓝色）和110（红色）的汽车，其余应保持黑色

如果我使用

ggplot(data = mtcars, mapping = aes(x = wt, y = mpg,col=factor(hp))) + geom_point()

然后每个不同的hp都会被着色。

库（dplyr）
library(dplyr)
library(ggplot2)

df <- mtcars %>%
  mutate(
    horse_power = case_when(
      hp == 180 ~ "180 hp",
      hp == 110 ~ "110 hp",
      T ~ "else"
    )
  )

ggplot(data = df, mapping = aes(x = wt, y = mpg, color = horse_power)) + 
  geom_point() +
  scale_color_manual("Horse power", values = c("red", "blue", "green")) +
  labs(
    x = "Weight (1000 lbs)",
    y = "Miles/(US) gallon"
  )

图书馆（GG2）
df%
变异(
马力=情况(
hp==180~“180 hp”，
hp==110~“110 hp”，
T~“其他”
)
)
ggplot（数据=df，映射=aes（x=wt，y=mpg，颜色=马力））+
几何点（）+
比例\颜色\手册（“马力”，值=c（“红色”、“蓝色”、“绿色”））+
实验室(
x=“重量（1000磅）”，
y=“英里/（美国）加仑”
)

库（dplyr）
图书馆（GG2）
df%
变异(
马力=情况(
hp==180~“180 hp”，
hp==110~“110 hp”，
T~“其他”
)
)
ggplot（数据=df，映射=aes（x=wt，y=mpg，颜色=马力））+
几何点（）+
比例\颜色\手册（“马力”，值=c（“红色”、“蓝色”、“绿色”））+
实验室(
x=“重量（1000磅）”，
y=“英里/（美国）加仑”
)

这可能会有帮助这可能会有帮助非常感谢@Ozan147！但我们又如何决定，具体的点应该有哪些颜色呢？@Trigger；我相应地更新了我的答案，加入了手动颜色。谢谢，它是否也适用于因子。我用mtcars作为我问题的一个例子。我想强调的是“因素”，而不是数字@Ozan147@Trigger; 如果您在时正确地调整了

case\u中的大小写，以便检查正确的类型，例如字符而不是整数，这将是可行的。嗯，好的，谢谢！但是我想不出来！因为这篇文章被贴上了重复的标签，所以我打开了一篇新文章，里面有我的真实数据框架和问题。标题是“使用ggplot 2突出几个特定点”，也许你可以在这方面帮助我@Ozan147非常感谢@Ozan147！但我们又如何决定，具体的点应该有哪些颜色呢？@Trigger；我相应地更新了我的答案，加入了手动颜色。谢谢，它是否也适用于因子。我用mtcars作为我问题的一个例子。我想强调的是“因素”，而不是数字@Ozan147@Trigger; 如果您在

时正确地调整了

case\u中的大小写，以便检查正确的类型，例如字符而不是整数，这将是可行的。嗯，好的，谢谢！但是我想不出来！因为这篇文章被贴上了重复的标签，所以我打开了一篇新文章，里面有我的真实数据框架和问题。标题是“使用ggplot 2突出几个特定点”，也许你可以在这方面帮助我@奥赞147
library(dplyr)
library(ggplot2)

df <- mtcars %>%
  mutate(
    horse_power = case_when(
      hp == 180 ~ "180 hp",
      hp == 110 ~ "110 hp",
      T ~ "else"
    )
  )

ggplot(data = df, mapping = aes(x = wt, y = mpg, color = horse_power)) + 
  geom_point() +
  scale_color_manual("Horse power", values = c("red", "blue", "green")) +
  labs(
    x = "Weight (1000 lbs)",
    y = "Miles/(US) gallon"
  )