R：将&quot；vline&quot；和&quot；hline&quot；语句组合在一起(Ggplot2) [英] R: Combining "vline" and "hline" statements together (ggplot2)

问题描述

我正在使用R编程语言。最近，我学习了如何使用gggraph库绘制水平线和垂直线：

library(ggplot2)

# Simple scatter plot
sp <- ggplot(data=mtcars, aes(x=wt, y=mpg)) + geom_point()

# Add horizontal line at y = 2O

a = sp + geom_hline(yintercept=20) 

b = sp + geom_vline(xintercept = 3)

现在，我尝试将这些语句组合在一起-例如：

c = sp + geom_hline(yintercept=20) +  geom_hline(yintercept=15) + geom_vline(xintercept = 3) +
    geom_vline(xintercept = 5) + geom_vline(xintercept = 6) + geom_hline(yintercept=35)

问题：我正在尝试修改上面的图，使其如下所示：

有人能教我怎么做吗？或者，您是否必须手动将此绘图导出到Microsoft Paint并在那里进行更改？

谢谢

推荐答案

您可以使用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)
  

这篇关于R：将&quot；vline&quot；和&quot；hline&quot；语句组合在一起(Ggplot2)的文章就介绍到这了，希望我们推荐的答案对大家有所帮助，也希望大家多多支持IT屋！