Plot函数使用问题：添加红色线条不显示求助

你的红色线条无法显示，核心问题是**lines()函数的参数顺序错误**：
lines()的默认调用语法是lines(x, y, ...)，你把y轴数据y1放在了x参数的位置，把x轴的时间数据time(Nile)放在了y参数的位置，这导致线条的坐标完全超出了当前绘图的显示范围，所以看不到。

另外需要确认y1的长度与time(Nile)匹配（你的代码里是100个值，和Nile的观测数一致，这部分没问题）。

修正后的代码如下：

data("Nile")
plot(Nile)
fm0 <- lm(Nile ~ 1) 
summary(fm0)
y1 <- c(rep(1097.75, 20), rep(848.9722, 80))
# 修正lines参数顺序
lines(fitted(fm0), col = "blue", lty = "dotted", lwd = 1)
lines(time(Nile), y1, col = "red",  lwd = 2)

运行这段代码后，红色线条就会按照预期显示在图上了。

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