AirPassengers时间序列绘图X轴无法显示月份问题求助

我明白你想在绘制1949-1960年美国国际航空乘客的时间序列图时，让X轴显示具体的年月而不是仅年份。你之前的代码里手动创建了月份序列，但因为没有匹配上时间序列的原生刻度范围，所以无法正常显示。下面我给你两种可行的解决方案，分别用基础R绘图和ggplot2来实现：

方法一：基础R绘图（利用ts对象的原生时间属性） #

AirPassengers本身是一个频率为12的时间序列对象，自带完整的时间信息，我们可以直接用time()和cycle()函数来提取并格式化X轴标签：

# 加载数据
data(AirPassengers)

# 获取时间序列的时间值（格式为带小数的年份，比如1949.0代表1949年1月）
time_points <- time(AirPassengers)

# 绘制时间序列图，先隐藏默认X轴
plot.ts(AirPassengers, 
        ylab = "Passengers (thousands)", 
        xlab = "Date", 
        xaxt = "n") # 关闭默认X轴

# 生成格式为"YYYY-MM"的标签
x_labels <- sapply(time_points, function(t) {
  year <- floor(t)
  month <- round((t - year) * 12 + 1) # 计算对应月份（1-12）
  paste0(year, "-", sprintf("%02d", month)) # 补零显示月份，比如01而不是1
})

# 添加自定义X轴，旋转标签避免重叠，缩小字体
axis(1, 
     at = time_points, 
     labels = x_labels, 
     las = 2, # 让标签垂直显示
     cex.axis = 0.7) # 缩小轴标签字体

如果觉得每个月都显示标签太拥挤，可以只显示每年的1月和7月，修改axis()部分的代码即可：

# 筛选出1月和7月的时间点索引
selected_indices <- which(cycle(AirPassengers) %in% c(1, 7))

# 添加仅包含关键月份的X轴
axis(1, 
     at = time_points[selected_indices], 
     labels = x_labels[selected_indices], 
     las = 2, 
     cex.axis = 0.8)

方法二：用ggplot2绘制（更灵活的标签控制） #

如果你习惯用ggplot2，转换为数据框后处理时间会更直观：

# 加载所需包
library(ggplot2)
library(tibble)

# 将时间序列转换为数据框，同时把时间转为标准日期格式
passenger_data <- tibble(
  date = as.Date(time(AirPassengers), origin = "1899-12-31"), # 转换ts时间为日期
  passengers = as.numeric(AirPassengers)
)

# 绘制时间序列图
ggplot(passenger_data, aes(x = date, y = passengers)) +
  geom_line(color = "steelblue", linewidth = 1) +
  labs(x = "Date", y = "Passengers (thousands)") +
  scale_x_date(
    date_breaks = "1 month", # 每月一个刻度
    date_labels = "%Y-%m" # 标签格式为年-月
  ) +
  theme(
    axis.text.x = element_text(angle = 90, vjust = 0.5, hjust = 1) # 旋转标签避免重叠
  )

为什么你的原始代码无法显示月份？ #

你手动创建的months <- seq(0, 144, 1)是0到144的整数，但plot.ts()的X轴范围是1949到1960（对应年份），这两个刻度范围完全不匹配，所以无法在正确的位置显示标签。利用ts对象自带的time()函数获取的时间值，才是和绘图区域X轴对应的刻度位置。

内容的提问来源于stack exchange，提问作者Ryan Z Johnson