ggplot2中设置独立点线图例（规避size弃用问题）

问题背景 #

需要创建一个独立于颜色、形状、线型的图例，分别为散点和水平线设置自定义名称。旧方案通过绑定size美学实现，但在ggplot2 3.4.0+版本中，线元素使用size已被弃用；且当线的名称字母排序晚于点时，图例显示异常。分开使用size和linewidth又会导致图例分散，布局效果差。

解决方案 #

核心思路是通过统一图例顺序、覆盖美学属性，将size（点）和linewidth（线）的图例合并为一个，同时严格控制每个图例项仅显示对应元素，完全适配新版本规范。

代码实现

library(ggplot2)
library(dplyr)

# 预处理数据：计算每个物种的花瓣长度平均值
data <- iris %>%
  group_by(Species) %>%
  mutate(AvgLength = mean(Petal.Length))

ggplot(data) +
  # 散点层：绑定size到自定义名称"样本数据"
  geom_point(aes(x = Petal.Width, y = Petal.Length, 
                 color = Species, shape = Species, size = "样本数据")) +
  # 水平线层：绑定linewidth到自定义名称"平均值"
  geom_hline(aes(yintercept = AvgLength, 
                 color = Species, linetype = Species, linewidth = "平均值")) +
  # 手动设置点大小和线宽
  scale_size_manual(values = c("样本数据" = 1.5)) +
  scale_linewidth_manual(values = c("平均值" = 0.5)) +
  # 合并图例并自定义显示
  guides(
    size = guide_legend(
      title = NULL,
      order = 1,
      override.aes = list(
        linetype = 0,  # 隐藏点项的线
        shape = 16,    # 显示点项的圆点
        linewidth = NA # 清除线宽属性
      )
    ),
    linewidth = guide_legend(
      title = NULL,
      order = 1,       # 与size图例同order，实现合并
      override.aes = list(
        linetype = 1,  # 显示线项的实线
        shape = NA,    # 隐藏线项的点
        size = NA      # 清除点大小属性
      )
    )
  ) +
  # 可选：调整图例为横向布局，更紧凑
  theme(legend.box = "horizontal")

关键说明 #

• 版本适配：线元素使用linewidth而非size，符合ggplot2 3.4.0+的官方规范，避免弃用警告。
• 图例合并：通过order = 1让size和linewidth图例合并为一个，解决分散布局问题。
• 元素控制：override.aes确保每个图例项仅显示对应的点或线，不会出现混合元素。
• 自定义名称：直接指定图例项名称，完全规避字母排序导致的显示异常。

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