ggplot2图表无法显示图例求助：含均值线的分类点图

要给点和均值横线添加图例，核心是让ggplot识别两个元素的区分属性——需要将它们的类别映射到aes()中的美学参数（比如颜色、形状、线型），再手动定义图例样式。

步骤1：构造可复现的数据（可选，方便测试） #

library(ggplot2)
library(tibble)

df <- tribble(
  ~tree, ~o18,
  "A", 15,
  "A", 22,
  "B", 20,
  "B", 19.5,
  "C", 15,
  "D", 30
)

df2 <- tribble(
  ~tree, ~o18,
  "A", 19,
  "B", 19.75,
  "C", 15,
  "D", 30
)

步骤2：修改绘图代码生成图例 #

方法1：用颜色区分点和均值线

ggplot() +
  # 给原始点添加color映射，指定图例标签
  geom_point(data = df, aes(x = tree, y = o18, color = "o18数值")) +
  # 给均值横线添加color映射，设置fill=NA避免填充
  geom_crossbar(data = df2, aes(x = tree, y = o18, ymin = o18, ymax = o18, color = "类别均值"),
                width = 0.5, fill = NA) +
  # 手动设置颜色和图例名称
  scale_color_manual(name = "说明",
                     values = c("o18数值" = "black", "类别均值" = "#E63946")) +
  theme_bw()

方法2：用形状+线型区分（更清晰）

ggplot() +
  # 给点映射shape属性
  geom_point(data = df, aes(x = tree, y = o18, shape = "o18数值"), size = 3) +
  # 给均值线映射linetype属性
  geom_crossbar(data = df2, aes(x = tree, y = o18, ymin = o18, ymax = o18, linetype = "类别均值"),
                width = 0.5, color = "black", fill = NA) +
  # 手动定义形状和线型，统一图例名称
  scale_shape_manual(name = "说明", values = c("o18数值" = 19)) +
  scale_linetype_manual(name = "说明", values = c("类别均值" = 1)) +
  # 调整图例顺序，让点在前
  guides(shape = guide_legend(order = 1), linetype = guide_legend(order = 2)) +
  theme_bw()

关键原理 #

原代码没有将两个元素的身份映射到aes()中的美学属性，ggplot仅当aes()内存在映射关系时才会生成图例。通过给每个几何对象指定专属的映射标签（如color = "o18数值"），再用scale_*_manual()定义样式和图例名称，就能生成清晰的图例说明。

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