R语言中ts对象绘图X轴标签偏移问题及正确解读咨询

问题重现 #

用ts函数创建起始于1954年7月的月度时间序列，打印确认起始时间后绘图，添加的竖线却没对准第一个数据点：

set.seed(123)
gnp = ts(cumsum(1 + round(rnorm(10), 2)), start = c(1954, 7), frequency = 12)
print(gnp) # 输出显示起始于1954年7月

plot(gnp, type = "o", pch = 19)
abline(v = 1954 + (7/12), col = "red")   # 预期对准第一个点，但实际偏移
abline(v = 1954 + (6/12), col = "blue", lty = "dashed") # 这条反而对准了第一个点

核心原因 #

R中ts对象的时间索引计算规则和直觉不同：

• 对于月度数据（frequency=12），1月对应的时间值是年份 + 0/12，2月是年份 + 1/12，以此类推
• 第m个月的时间值公式为：起始年份 + (m-1)/frequency
• 所以1954年7月对应的时间值是1954 + (7-1)/12 = 1954.5，而非1954 + 7/12

正确解决方法 #

方法1：直接用time()函数获取精确时间值 #

time()函数会直接返回ts对象每个数据点对应的时间索引，无需手动计算：

plot(gnp, type = "o", pch = 19)
abline(v = time(gnp)[1], col = "red") # 精准对准第一个数据点

方法2：手动调整计算逻辑 #

如果需要手动计算，遵循年份 + (月份-1)/频率的公式：

plot(gnp, type = "o", pch = 19)
abline(v = 1954 + (7-1)/12, col = "red") # 结果和time()一致

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