如何为ggplot中的水平线与垂直线添加统一图例？

我来帮你搞定这个问题！你的代码里有几个小细节导致线条和图例不符合预期，咱们一步步修正：

问题分析 #

1. 你在geom_vline里手动设置了linetype="dashed"，这会覆盖aes()里的线型映射，导致这两条垂直线的线型不受scale_linetype_manual控制，图例也无法正确关联它们。
2. scale_linetype_manual的values参数顺序和你在aes中定义的标签顺序不匹配，导致线型对应错误。
3. 还有个小拼写错误：2st应该是2nd~

修正后的完整代码 #

library(ggplot2)
x <- c(1:70)
y <- c((1:70)^2)
df <- data.frame(x,y)

ggplot(df, aes(x = x, y = y)) + 
  ylab(expression(bold("Height"))) + 
  xlab(expression(bold("Width"))) + 
  geom_point(size=1, col="red") + 
  # 水平线：将linetype统一放入aes映射，不手动设置
  geom_hline(aes(yintercept=2000, linetype = "1st border of height"), col="green", size=1) + 
  geom_hline(aes(yintercept=4000, linetype = "2nd border of height"), col="red", size=1) + 
  # 垂直线：移除手动linetype设置，将线型映射到aes中
  geom_vline(aes(xintercept=20, linetype = "1st border of width"), col="blue", size=1) + 
  geom_vline(aes(xintercept=40, linetype = "2nd border of width"),col="darkblue", size=1) + 
  geom_smooth(lwd=1, col="blue", span = 0.8, se=F) + 
  # 调整scale参数，让values顺序与aes标签一一对应
  scale_linetype_manual(
    name = "Legend", 
    # 顺序对应：1st高度线、2nd高度线、1st宽度线、2nd宽度线
    values = c("solid", "solid", "dashed", "dashed"), 
    guide = guide_legend(
      override.aes = list(
        color = c("green", "red", "blue", "darkblue")
      )
    )
  ) + 
  theme_bw() # 可选：用theme_bw让图表更清晰，也可换回theme()

修改说明 #

• 把所有线条的linetype都统一放到aes()中映射，不再手动设置，确保图例能正确关联每一条线。
• 调整scale_linetype_manual的values顺序，完全对应你定义的四个图例标签，水平线用实线、垂直线用虚线。
• 修正了拼写错误，让图例文本更准确。

这样修改后，两条水平线、两条垂直线都会正确显示对应的颜色和线型，图例也会完整展示每一条线的标识。

内容的提问来源于stack exchange，提问作者Baltazár Tivadar