ggplot2::geom_vline图例无法正确显示线型问题

嘿，我懂你遇到的这个糟心问题——当两条垂直线里有一条用实线（solid）时，图例里所有线条都变成了实线，确实挺闹心的。这其实是因为直接分开用两个geom_vline单独设置属性时，ggplot的图例映射逻辑会出点小偏差，尤其是solid作为默认线型，很容易覆盖其他设置。

下面给你一个靠谱的解决思路，核心是把两条线的参数统一放到一个数据框里，通过美学映射（aes）绑定颜色和线型，再手动指定对应关系，这样图例就能完美匹配每条线的样式了：

library(ggplot2)
library(ggthemes)

# 先创建一个包含垂直线信息的数据框
vline_info <- data.frame(
  x_pos = c(5, 6),          # 两条线的x轴位置
  line_label = c("均值线", "中位数线"),  # 图例显示的名称
  line_color = c("#E63946", "#457B9D"), # 自定义颜色
  line_type = c("solid", "dashed")      # 自定义线型
)

# 绘制图形
ggplot(aes(x = Sepal.Length), data = iris) +
  geom_histogram(color = 'black', fill = 'white', bins = 15) +
  # 用一个geom_vline，通过数据框映射所有属性
  geom_vline(data = vline_info, aes(
    xintercept = x_pos,
    color = line_label,
    linetype = line_label
  ), linewidth = 1) +  # 可以调整线条粗细，图例也会同步变化
  # 手动指定颜色和线型的对应关系
  scale_color_manual(values = c(
    "均值线" = "#E63946",
    "中位数线" = "#457B9D"
  )) +
  scale_linetype_manual(values = c(
    "均值线" = "solid",
    "中位数线" = "dashed"
  )) +
  ggthemes::theme_fivethirtyeight() +
  # 把颜色和线型的图例标题统一，让它们合并成一个整洁的图例
  labs(color = "参考线", linetype = "参考线")

为什么原来的方法会出错？ #

如果你分开写两个geom_vline，比如：

# 错误示例
ggplot(...) +
  geom_vline(xintercept = 5, color = "red", linetype = "solid", show.legend = TRUE) +
  geom_vline(xintercept = 6, color = "blue", linetype = "dashed", show.legend = TRUE)

这种方式相当于直接给每个线条设置固定属性，没有通过aes建立映射关系。ggplot在生成图例时，会默认使用最后一个设置的线型（或者把solid当作默认值覆盖），导致所有图例线条都变成实线。而用数据框映射的方式，让ggplot明确知道每个标签对应的颜色和线型，自然就不会乱套了。

额外小技巧 #

• 如果想让图例的线条更醒目，可以在geom_vline里加linewidth参数，图例里的线条也会跟着变粗。
• 颜色和线型的取值可以随意调整，只要scale_*_manual里的名称和line_label完全对应就行。

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