如何为ggplot中额外添加的蓝色点添加图例？

嘿，我来帮你解决这个问题！你当前的代码里，那个单独的蓝色点没法出现在图例里，核心原因是你直接硬编码了它的颜色（colour = "blue"），没有把这个颜色和ggplot的**美学映射（aes）**绑定起来——只有在aes里定义的视觉属性，才会被ggplot纳入图例系统。

咱们调整一下代码就能轻松搞定，这里给你两种方案：

方案1：让特殊点同时在颜色和形状图例中显示 #

这种方案会把特殊点的颜色和形状都加入图例，和原有分组保持统一的图例逻辑：

dat <- data.frame(cond = rep(c("A", "B"), each=10), xvar = 1:20 + rnorm(20,sd=3), yvar = 1:20 + rnorm(20,sd=3))
g1 <- dat[15,]

ggplot(dat, aes(x = xvar, y = yvar, shape = cond, colour = cond)) +
  geom_point(size = 2.5) +
  # 把特殊点的颜色、形状都放入aes映射，命名为你想要的图例项名称
  geom_point(data = g1, aes(colour = "特殊点", shape = "特殊点"), size = 4) +
  # 手动指定所有分组的颜色：原有A、B用默认色系，特殊点设为蓝色
  scale_colour_manual(values = c("A" = "#F8766D", "B" = "#00BFC4", "特殊点" = "blue")) +
  # 手动指定所有分组的形状：原有A、B用默认形状，特殊点可选一个显眼的样式
  scale_shape_manual(values = c("A" = 16, "B" = 17, "特殊点" = 19)) +
  # 统一图例标题，让颜色和形状图例合并
  labs(colour = "分组类型", shape = "分组类型")

方案2：仅在颜色图例中添加特殊点（保持原有形状逻辑） #

如果你只想让蓝色点出现在颜色图例里，不需要单独设置形状，可以用这个简化版：

dat <- data.frame(cond = rep(c("A", "B"), each=10), xvar = 1:20 + rnorm(20,sd=3), yvar = 1:20 + rnorm(20,sd=3))
g1 <- dat[15,]

ggplot(dat, aes(x = xvar, y = yvar, shape = cond, colour = cond)) +
  geom_point(size = 2.5) +
  # 仅把颜色放入aes映射，形状手动指定为你想要的样式
  geom_point(data = g1, aes(colour = "特殊点"), size = 4, shape = 19) +
  # 手动指定颜色值，包含原有分组和特殊点
  scale_colour_manual(values = c("A" = "#F8766D", "B" = "#00BFC4", "特殊点" = "blue"))

关键逻辑说明 #

• 必须把特殊点的视觉属性（比如颜色）放到aes()内部，ggplot才会识别这是一个需要生成图例的分组。
• 用scale_*_manual()可以手动控制每个分组的颜色、形状等样式，让图表更符合你的需求。

内容的提问来源于stack exchange，提问作者panuffel