如何分别修改geom_path与geom_point颜色并同步至图例？

核心问题在于：直接设置color、linetype这类参数（而非放在aes()映射内）不会关联到图例。要让图例同步显示自定义样式，必须把需要展示的属性纳入映射，再通过手动刻度（scale）指定样式，同时推荐用长格式数据来简化代码。

优化后的代码示例 #

library(ggplot2)
library(tidyr) # 用于整理数据

# 生成数据并转为长格式
xdata <- c(1,2,3,4,5,6)
ydata <- xdata^2
ydata2 <- 2^xdata
xydata <- data.frame(xdata, ydata, ydata2) %>%
  pivot_longer(cols = -xdata, names_to = "series", values_to = "y")

ggplot(xydata) +
  # 线的映射：颜色、线型都放入aes
  geom_path(aes(x = xdata, y = y, color = series, linetype = series), size = 1) +
  # 点的映射：用fill控制填充色（配合shape=21实现点边框与填充色分离）
  geom_point(aes(x = xdata, y = y, color = series, fill = series), size = 2, shape = 21) +
  # 手动指定各系列的颜色、线型、填充色
  scale_color_manual(
    values = c("ydata" = "red", "ydata2" = "blue"),
    labels = c("x^2", "2^x")
  ) +
  scale_linetype_manual(
    values = c("ydata" = "solid", "ydata2" = "dashed"),
    labels = c("x^2", "2^x")
  ) +
  scale_fill_manual(
    values = c("ydata" = "black", "ydata2" = "blue"),
    labels = c("x^2", "2^x")
  ) +
  # 合并图例，避免重复显示
  guides(
    color = guide_legend(override.aes = list(shape = 21, fill = c("black", "blue"))),
    linetype = guide_legend(override.aes = list(shape = 21, fill = c("black", "blue"))),
    fill = "none" # 隐藏单独的填充图例
  ) +
  labs(color = "系列", linetype = "系列") # 统一图例标题

关键说明 #

• 长格式数据：用pivot_longer把宽数据转成长格式，避免重复调用geom_path和geom_point，代码更简洁易维护。
• 属性映射到aes：把color、linetype、fill都放入aes()，让ggplot2将这些属性与图例关联起来。
• 手动刻度配置：通过scale_*_manual指定每个系列的具体样式，同时统一图例标签。
• 图例合并：用guides()让颜色、线型的图例合并，避免多个图例重复显示，通过override.aes确保图例里的点显示正确样式。

如果不想用长格式数据，也可以给每个系列单独指定映射（代码稍冗余）：

library(ggplot2)

xdata <- c(1,2,3,4,5,6)
ydata <- xdata^2
ydata2 <- 2^xdata
xydata <- data.frame(xdata, ydata)

ggplot(xydata) +
  geom_path(aes(x = xdata, y = ydata, color = "x^2", linetype = "x^2"), size = 1) +
  geom_point(aes(x = xdata, y = ydata, color = "x^2", fill = "x^2"), size = 2, shape = 21) +
  geom_path(aes(x = xdata, y = ydata2, color = "2^x", linetype = "2^x"), size = 1) +
  geom_point(aes(x = xdata, y = ydata2, color = "2^x", fill = "2^x"), size = 2, shape = 21) +
  scale_color_manual(values = c("x^2" = "red", "2^x" = "blue")) +
  scale_linetype_manual(values = c("x^2" = "solid", "2^x" = "dashed")) +
  scale_fill_manual(values = c("x^2" = "black", "2^x" = "blue")) +
  guides(
    color = guide_legend(override.aes = list(shape = 21, fill = c("black", "blue"))),
    linetype = guide_legend(override.aes = list(shape = 21, fill = c("black", "blue"))),
    fill = "none"
  )

无效原因解析 #

• 直接设置color="black"（不在aes内）：属于硬编码样式，不会被ggplot2识别为映射属性，图例自然不会同步。
• 仅用scale_color_manual但未将线型/点属性纳入映射：图例只会展示颜色，无法关联自定义的线型或点样式。

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