R 在时间序列图上画一条线

我有下一个时间序列对象，我使用plot来绘制它：

ts <- ts(c(1:4,2:5,3:6,4:7,5:8,6:9,7:10), frequency = 4)
plot(ts)

有没有人遇到过同样的问题并设法解决了

---

我不确定我是否完全理解你想要实现的目标。但以下内容可能会有所帮助

您可以使用以下简单代码行：

这就产生了下面的简单图

---

完全正确，我将修复这些错误。谢谢

abline(a = 1, b = (ts[length(ts)]- ts[1]) / (length(ts)-1))

# your code
ts <- ts(c(1:4,2:5,3:6,4:7,5:8,6:9,7:10), frequency = 4)
plot(ts)

# drawing a blue line from (1, 1) to (8, 10)
lines(x = c(1, 8), y = c(1,10), col="blue")

ts <- ts(c(1:4,2:5,3:6,4:7,5:8,6:9,7:10), frequency = 4)
plot(ts, xlim=c(1,8), type="o")

x1 <- 1; y1 <- ts[1]
x2<- 7.75; y2 <- ts[length(ts)]

abline(a = y1-x1*(y1-y2)/(x1-x2), b = (y1-y2)/(x1-x2) )
grid()