R：将“vline”和“hline”语句组合在一起（ggplot2）

您可以使用annotate. 每个片段都是以下四个向量的匹配元素。即第一段从 (-Inf,15) 开始并在 (3,15) 结束。

ggplot(data=mtcars, aes(x=wt, y=mpg)) + geom_point() +
  annotate("segment", 
           x = c(-Inf, 3, -Inf, 5, -Inf, 6),
           y = c(15, 15, 20, 20, 35, 35),
           xend = c(3, 3, 5, 5, 6, 6),
           yend = c(15, -Inf, 20, -Inf, 35, -Inf))

或者，定义一个从一个点向轴绘制两条线的函数可能会更容易（假设这里的点是正的，所以它应该朝向 -Inf）。要使函数输出多个 ggplot2 元素，请将它们放在一个列表中：

draw_guides<- function(x, y) {
  list(geom_segment(aes(x = -Inf, xend = x, y = y, yend = y)),
       geom_segment(aes(x = x, xend = x, y = y, yend = -Inf)))
}

然后你可以调用每一个来更轻松地重新创建所需的图形：

ggplot(data=mtcars, aes(x=wt, y=mpg)) + geom_point() +
  draw_guides(3,15) +
  draw_guides(5,20) +
  draw_guides(6,35)