如何实现ggplot图例中点与线条的不同颜色设置（附示例）

原代码 #

library(tidyverse)
ggplot(mpg)+
  geom_point(aes(x=displ,y=cty,color=drv))+
  geom_line(aes(x=displ,y=cty,color=drv))

需求说明 #

需要让图例中的点和线条使用不同颜色（例如drv为4的类别，点设为红色、线条设为绿色），且该效果需在图例中展示；同时禁止使用fill映射点、color映射线的方案（因点形状有特定要求）。

解决方案 #

通过手动分配点和线条的颜色，结合图例的自定义覆盖设置实现需求：

library(tidyverse)

# 定义各drv类别对应的点颜色和线条颜色
point_col <- c("4" = "red", "f" = "blue", "r" = "orange")
line_col <- c("4" = "green", "f" = "purple", "r" = "brown")

ggplot(mpg) +
  # 点使用color映射drv，绑定点颜色
  geom_point(aes(x = displ, y = cty, color = drv)) +
  # 线条通过group分组，手动绑定线条颜色
  geom_line(
    aes(x = displ, y = cty, group = drv),
    color = case_when(
      mpg$drv == "4" ~ line_col["4"],
      mpg$drv == "f" ~ line_col["f"],
      mpg$drv == "r" ~ line_col["r"]
    )
  ) +
  # 设置点的颜色标度，并自定义图例样式
  scale_color_manual(
    values = point_col,
    guide = guide_legend(
      override.aes = list(
        color = point_col,       # 图例中点的颜色
        linecolor = line_col     # 图例中线的颜色
      )
    )
  ) +
  # 优化图例背景，避免颜色干扰
  theme(legend.key = element_rect(fill = "white"))

说明 #

• 点通过color美学映射drv，保证点的颜色与图例对应；
• 线条使用group分组确保每个类别单独绘制，再通过case_when手动分配对应颜色；
• 利用guide_legend的override.aes参数，分别指定图例中点和线条的颜色，实现图例与绘图区样式一致。

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