与 x 轴 (R) 中的时间序列一致

Question

我想在 abline 中添加一条截距 = 37 和斜率 = 5 的线。 问题是 x 轴是来自 ts object 的日期。 我希望这条线从第一个时间段开始（对于 x= 2013 第一季度，截距 = 37）

cars<-c(21,22,18,25,14,23,27,18,21,15,24,27,20,25,18,20)
cars<-ts(cars, start=c(2013, 1), end=c(2016, 4),frequency=4)
plot(cars)
abline(a=37.95, b=4.29)

Answer 1

如果您需要 plot 在 2013 年截距为37.95且斜率b=4.29的直线，则需要求解以下简单方程：

39.75 = a + 4.29 * 2013
a = -8597.82

因此：

cars <- c(21,22,18,25,14,23,27,18,21,15,24,27,20,25,18,20)
cars <- ts(cars, start=c(2013, 1), end=c(2016, 4),frequency=4)
plot(cars, ylim=c(14,60))
abline(a=-8597.82, b=4.29)