R语言给ggplot2绘图添加垂直和水平线

在这篇文章中，我们将看到如何使用R编程语言中的ggplot2向图中添加垂直和水平线。

使用geom_vline()将垂直线添加到R图中

为了在R图中添加垂直线， geom_vline() 在指定的位置画一条垂直线。

语法： geom_vline(xintercept)

参数： 这里xintercept用来控制线的X位置。

返回： R图上的垂直线。

例子： 为了在绘图上添加垂直线，我们只需在ggplot2()函数中添加 geom_vline() 函数，并传递 xintercept ，它基本上是X轴上的一个位置，我们实际上想在那里创建一条垂直线。这里我们将 2011年 设置为xintercept。

# load ggplot2 package
library(ggplot2)
 
# Create a dataframe for Plot data
data <- data.frame(year = c(2011, 2012, 2013, 2014, 2015),
                   point = c(10, 20, 30, 40, 50))
 
# Plot the scatter plot with vertical line
# at X=2011
ggplot(data, aes(year, point)) +   
  ggtitle("Point Chart")+
  geom_point(aes(size = 1.0), col = "green")+
  geom_vline(xintercept = 2011)

输出

在R语言中给ggplot2绘图添加垂直和水平线

在X=2011处有垂直线的散点图

使用geom_hline()在R图中添加水平线

为了在R图中添加水平线，我们将使用 geom_hline() 函数。

语法： geom_hline(yintercept)

参数： 这里用yintercept来控制线的y位置。

返回： R图上的水平线。

例子： 为了在图上添加水平线，我们只需在ggplot2()函数中添加 geom_hline() 函数，并传递yintercept，它基本上是 Y轴上 的一个位置，我们实际上想在那里创建一条垂直线。这里我们将 20 设置为X截距。

# load ggplot2 package
library(ggplot2)
 
# Create a dataframe for Plot data
data <- data.frame(year = c(2011, 2012, 2013, 2014, 2015),
                   point = c(10, 20, 30, 40, 50))
 
# Plot the scatter plot with horizontal
# line at Y=20
ggplot(data, aes(year, point)) +   
  ggtitle("Point Chart")+
  geom_point(aes(size = 1.0), col = "green")+
  geom_hline(yintercept = 20)

输出

在R语言中给ggplot2绘图添加垂直和水平线

在Y=20处有水平线的散点图

在R图中同时添加垂直和水平线

为了添加这两条线，我们在ggplot()函数中添加 geom_vline() 和 geom_hline() 函数，并设置xintercept和yintercept的值。

例子： 这里我们将在 X=2012 处画垂直线，在 Y=20 处画垂直线。

# load ggplot2 package
library(ggplot2)
 
# Create a dataframe for Plot data
data <- data.frame(year = c(2011, 2012, 2013, 2014, 2015),
                   point = c(10, 20, 30, 40, 50))
 
# Plot the scatter plot with both lines
# at X=2012 and Y=20
ggplot(data, aes(year, point)) +   
  ggtitle("Point Chart")+
  geom_point(aes(size = 1.0), col = "green")+
  geom_vline(xintercept = 2012)+
  geom_hline(yintercept = 20)

输出

在R语言中给ggplot2绘图添加垂直和水平线

在X=2012和Y=20处有两条线的散点图

使用seq()函数向R图添加多条垂直和水平线

我们将使用 seq() 函数来表示 x截距 和 y截距 ，所有其他的设置将与例子3相同。

语法： seq(from, to, by)

参数

from： 用于表示起始长度。
to ：用于表示结束长度。
by： 它代表系统的增量。

返回： 良好形式的序列。

例子： 这里我们要画出 从2011年到2015年 的垂直线，差值为 0.5 ， 从10到50 的水平线，差值为 5。

# load ggplot2 package
library(ggplot2)
 
# Create a dataframe for Plot data
data <- data.frame(year = c(2011, 2012, 2013, 2014, 2015),
                   point = c(10, 20, 30, 40, 50))
 
# Plot the scatter plot with multiple
# vertical and horizontal lines
ggplot(data, aes(year, point)) +   
  ggtitle("Point Chart")+
  geom_point(aes(size = 1.0), col = "green")+
  geom_vline(xintercept = seq(from=2011, to=2015, by = 0.5))+
  geom_hline(yintercept = seq(from=10, to=50, by = 5))

输出

在R语言中给ggplot2绘图添加垂直和水平线