R语言使用abline()绘制x轴为年份的指定起止点线段问题

你之前调用的abline()是用于绘制无限长直线的函数，其参数a指代y轴截距（即x=0时的y值），和你需要的线段起点y值不是同一概念，所以输出不符合预期。你可以用R基础绘图系统中专门绘制指定起止点线段的segments()函数实现需求，注意需要先调整绘图的x轴范围，确保终点的x坐标2021在显示范围内，完整代码如下：

a <- c(3, 2, 1)
b <- c(1920, 1940, 1980)
# 调整x轴范围到2021，避免线段右端被截断
plot(b, a, xlim = c(min(b), 2021))
# 绘制指定起止点的线段
segments(x0 = 1920, y0 = 3, x1 = 2021, y1 = 1, col = "red", lwd = 2)

segments()的核心参数说明：

• x0、y0：线段起点的x、y坐标
• x1、y1：线段终点的x、y坐标
• 可选参数col调整线条颜色，lwd调整线条粗细，lty调整线条类型，可按需修改。

内容的提问来源于stack exchange，提问作者integr