如何为ggplot2的pointrange图形添加自定义图例说明元素含义？

要让图例清晰展示黑色点（分组中位数）、水平线（分组范围）和绿色虚线（整体中位数）的含义，核心是把这些元素的视觉属性绑定到ggplot的美学映射（aes）中，再手动定义图例样式。以下是修改后的完整代码：

library(ggplot2)
library(dplyr)

data = diamonds %>%
  group_by(cut) %>%
  summarise(min = min(depth), max = max(depth), 
            median = median(depth))

h_line <- 61  

ggplot(data, aes(x = cut, y = median, ymin = min, ymax = max)) + 
  # 映射范围线到图例条目"范围"
  geom_linerange(aes(color = "范围")) + 
  # 映射整体中位数虚线到图例条目"整体中位数"，同时指定线型映射
  geom_hline(aes(yintercept = h_line, color = "整体中位数", linetype = "整体中位数")) +
  # 映射中位数点及范围到图例条目"中位数"
  geom_pointrange(aes(color = "中位数")) +  
  coord_flip() +
  # 手动设置各图例项的颜色
  scale_color_manual(
    name = "图例说明",
    values = c(
      "范围" = "black",
      "中位数" = "black",
      "整体中位数" = "#0ab58f"
    )
  ) +
  # 手动设置各图例项的线型
  scale_linetype_manual(
    name = "图例说明",
    values = c(
      "范围" = "solid",
      "中位数" = "solid",
      "整体中位数" = "dashed"
    )
  ) +
  # 调整图例的显示细节：给中位数添加点形状，其余仅显示线条
  guides(
    color = guide_legend(override.aes = list(
      linetype = c("solid", "solid", "dashed"),
      shape = c(NA, 16, NA)
    ))
  )

关键修改说明： #

• 绑定美学映射：给每个需要图例的元素添加aes(color = "自定义标签")，让ggplot识别需要生成的图例条目；geom_hline额外添加linetype映射来区分虚线样式。
• 手动定义视觉属性：用scale_color_manual和scale_linetype_manual分别指定每个图例条目的颜色和线型，保持原图表的视觉风格。
• 优化图例显示：通过guides调整图例的元素样式，确保每个条目只显示对应元素（比如"范围"和"整体中位数"只显示线条，"中位数"显示点+线条），避免图例混乱。

修改后生成的图表会自动展示清晰的图例，明确说明三个元素的含义。

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