如何在时间序列相关图中为X轴标注年份？

问题根源 #

你当前代码里用seq_along(ts)作为x轴变量，这个序列是1到42（对应42个观测值），但scale_x_continuous的breaks设成了1980-2022，两者数值范围完全不匹配，所以年份标签无法正确显示。

方法1：直接利用ts对象的时间信息 #

ts对象本身包含对应的年份数据，用time(ts)直接获取即可，不用手动生成序列：

set.seed(1)
ts1 <- truncnorm::rtruncnorm(42, a=5.717151, b=18.765000, mean=18.736, sd=16.31536)
ts <- ts(ts1, start = 1980, end = 2022, frequency = 1)

ggplot(NULL, aes(y = ts, x = time(ts))) + 
  geom_line(color = "#F2AA4CFF") + 
  geom_point(color = "#101820FF") + 
  xlab('Year') + 
  ylab('Inflation Rate (in %)') + 
  # 设置X轴间隔3年显示年份
  scale_x_continuous(breaks = seq(1980, 2022, 3), limits = c(1980, 2022)) +
  scale_y_continuous(expand = c(0.0, 0.00)) +
  theme_bw() +
  theme(axis.text = element_text(size = 10), 
        axis.title = element_text(size = 10), 
        axis.title.x = element_text(hjust = 0.5, size = 10), 
        axis.title.y = element_text(hjust = 0.5, size = 14))

方法2：用lubridate转日期格式实现 #

如果需要更灵活的时间处理，可把年份转为日期类型，方便后续扩展：

library(lubridate)
library(ggplot2)

set.seed(1)
ts1 <- truncnorm::rtruncnorm(42, a=5.717151, b=18.765000, mean=18.736, sd=16.31536)
# 生成年份向量并转为日期格式（取每年1月1日）
year_dates <- ymd(paste0(seq(1980,2022,1), "-01-01"))

ggplot(data.frame(year = year_dates, inflation = ts1), aes(x = year, y = inflation)) +
  geom_line(color = "#F2AA4CFF") +
  geom_point(color = "#101820FF") +
  xlab('Year') +
  ylab('Inflation Rate (in %)') +
  # 控制X轴每3年显示一次，格式为纯年份
  scale_x_date(date_breaks = "3 years", date_labels = "%Y") +
  scale_y_continuous(expand = c(0.0, 0.00)) +
  theme_bw() +
  theme(axis.text = element_text(size = 10), 
        axis.title = element_text(size = 10), 
        axis.title.x = element_text(hjust = 0.5, size = 10), 
        axis.title.y = element_text(hjust = 0.5, size = 14))

关键提示 #

• 方法1简单直接，完全适配你当前的ts对象，不需要额外包；
• 方法2用lubridate处理日期，适合后续如果要扩展到月度/季度数据的场景，日期格式的控制更灵活。

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