在R中的多个图之间画线

Question

我想添加一条在R中两个独立图之间延伸的线。

我使用par（mfrow = c（2，1））创建多图图像，如下所示：

par(mfrow=c(2, 1))

x_values <- c(1:6)
y1_values <- c(6, 5, 4, 3, 2, 1)
y2_values <- c(1, 2, 3, 4, 5, 6)


plot(x_values, y1_values, xlim = c(1, 6), ylim = c(1, 5))
abline(v = 2)

plot(x_values, y2_values, xlim = c(1, 6), ylim = c(1, 5))
abline(v = 2)

我希望（x = 2）处的垂直线连接两个图之间的 ，如下所示：