为geom_segment与geom_point按颜色分组设置独立图例

需求说明 #

需要生成包含四个独立图例条目的图表：对应A组散点、A组线段、B组散点、B组线段，且按分组（颜色）分面展示。

修正数据集 #

原数据集的创建方式可以更清晰，我们将点和线段数据分别整理后合并，方便后续映射：

x <- 1:10
y <- seq(2, 20, by = 2)
z <- seq(3, 30, by = 3)

# 整理散点数据
df_points <- rbind(
  data.frame(x = x, y = y, group = "A", type = "散点"),
  data.frame(x = x, y = z, group = "B", type = "散点")
)

# 整理线段数据
df_segments <- data.frame(
  x = 0, xend = 10,
  y = c(10, 20), yend = c(10, 20),
  group = c("A", "B"),
  type = "线段"
)

# 合并所有数据
df <- rbind(df_points, df_segments)

完整绘图代码 #

通过将group（分组）、type（元素类型）映射到aes中，配合尺度调整和图例设置，实现需求：

library(ggplot2)

ggplot(df, aes(x = x, y = y, color = group, linetype = type, shape = type)) +
  # 绘制线段
  geom_segment(aes(xend = xend, yend = yend), linewidth = 1) +
  # 绘制散点
  geom_point(size = 3) +
  # 设置分组颜色
  scale_color_manual(values = c("A" = "blue", "B" = "gray64")) +
  # 设置线型：散点不显示线型，线段用实线
  scale_linetype_manual(values = c("散点" = NA, "线段" = "solid")) +
  # 设置形状：线段不显示形状，散点用实心圆
  scale_shape_manual(values = c("散点" = 16, "线段" = NA)) +
  # 按分组分面展示
  facet_wrap(~group) +
  # 调整图例：合并为一个，显示四个条目
  guides(
    color = guide_legend(
      title = "分组与元素",
      override.aes = list(
        linetype = c("solid", "solid", NA, NA),
        shape = c(NA, NA, 16, 16)
      )
    ),
    linetype = "none",
    shape = "none"
  ) +
  labs(x = "X轴", y = "Y轴") +
  theme_minimal()

关键说明 #

1. 数据整合：将散点和线段数据放到同一数据框，用group和type字段标记属性，确保所有元素都能通过aes映射关联到图例。
2. 尺度设置：通过scale_*_manual分别定义颜色、线型、形状的对应规则，避免散点显示线型、线段显示形状。
3. 图例调整：用guides合并图例，通过override.aes修正每个图例条目的显示样式，确保四个条目（A线段、B线段、A散点、B散点）正确呈现。
4. 分面展示：通过facet_wrap(~group)实现按分组分面，让每组的元素独立展示在各自面板中。

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