如何将ggplot中geom_vline的图例显示为水平线？

要让图例中的竖线变为水平线，只需在scale_linetype_manual中通过guide_legend的override.aes参数重写图例的几何属性，强制使用水平线段展示线型。

修改后的完整代码 #

plot_test <- ggplot() +
  geom_vline(aes(xintercept = 1, linetype='Line 1'), linewidth=1) +
  geom_vline(aes(xintercept = 2, linetype='Line 2'), linewidth=1) +
  geom_vline(aes(xintercept = 3, linetype='Line 3'), linewidth=1) +
  geom_vline(aes(xintercept = 4, linetype='Line 4'), linewidth=1) +
  geom_vline(aes(xintercept = 5, linetype='Line 5'), linewidth=1) +
  scale_linetype_manual(
    '', 
    values=c('Line 1'=1, 'Line 2'=2, 'Line 3' = 3, 'Line 4'=4, 'Line 5'=5),
    guide = guide_legend(
      override.aes = list(
        geometry = "segment",
        x = 0.25, xend = 0.75,
        y = 0.5, yend = 0.5
      )
    )
  ) +
  theme_bw()

plot_test

关键说明 #

• override.aes用于覆盖图例的默认视觉属性：这里将原本对应geom_vline的竖线图例，替换为水平的segment线段。
• x和xend设置线段的水平范围，保证在图例框内完整显示；y和yend保持一致，确保线段水平。

如果觉得线型还是不够清晰，可以额外调整图例的宽度，让线段更长：

guide = guide_legend(
  keywidth = unit(1.5, "cm"), # 加宽图例框，让线段更长
  override.aes = list(
    geometry = "segment",
    x = 0.25, xend = 0.75,
    y = 0.5, yend = 0.5
  )
)

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