R中rownames/colnames失效时，如何获取时间序列的年月名称？

在R中，频率为12的月度时间序列（如AirPassengers）打印时会自动排版成年份行头、月份列头的形式，但常规的rownames()、colnames()函数无法获取这些标识；time()函数返回的结果虽有类似排版，同样拿不到这些显示的时间标签。以下是直接提取年份列表、周期（月/季度）列表或"Jan 1949"格式时间标签的方法，且适配不同频率的时间序列（如带"Qtr1" "Qtr2"标识的季度序列UKgas）。

方法1：利用ts对象的内置属性直接提取 #

ts类型的时间序列自带tsp属性（记录起始、结束时间和频率），结合cycle()和time()函数即可生成对应标签：

提取年份列表 #

# 针对月度序列AirPassengers
year_list <- floor(time(AirPassengers))
# 去重得到唯一年份
unique_years <- unique(year_list)

# 针对季度序列UKgas
uk_year_list <- floor(time(UKgas))
uk_unique_years <- unique(uk_year_list)

提取周期标签（月/季度） #

R会根据时间序列的频率自动匹配周期类型，直接通过cycle()函数结合内置标签生成：

# 月度序列的月份缩写标签（对应打印的Jan-Dec）
month_labels <- month.abb[cycle(AirPassengers)]

# 季度序列的季度标签（对应打印的Qtr1-Qtr4）
quarter_labels <- paste0("Qtr", cycle(UKgas))

生成完整格式的时间标签 #

# 月度序列："Jan 1949"格式
full_month_tags <- paste(month.abb[cycle(AirPassengers)], floor(time(AirPassengers)))

# 季度序列："1960 Qtr1"格式
full_quarter_tags <- paste(floor(time(UKgas)), paste0("Qtr", cycle(UKgas)))

方法2：转换为zoo/xts对象简化操作 #

如果需要更灵活的时间索引管理，可以将ts对象转换为zoo或xts类型，这类对象会直接把时间作为可操作的索引：

library(zoo)

# 处理月度序列AirPassengers
air_zoo <- as.zoo(AirPassengers)
# 获取原生时间索引（yearmon类型）
air_time_index <- index(air_zoo)
# 格式化为字符串标签
format(air_time_index, "%b %Y")

# 处理季度序列UKgas
ukgas_zoo <- as.zoo(UKgas)
# 格式化为"1960 Q1"或"1960 Qtr1"格式
format(index(ukgas_zoo), "%Y Q%q")
format(index(ukgas_zoo), "%Y Qtr%q")

验证示例 #

以AirPassengers为例，运行以下代码可直接得到与打印时一致的标签：

# 打印唯一年份
unique(floor(time(AirPassengers)))
# 打印月份标签
unique(month.abb[cycle(AirPassengers)])
# 打印前6个完整时间标签
head(paste(month.abb[cycle(AirPassengers)], floor(time(AirPassengers))))

针对UKgas的验证：

# 打印唯一年份
unique(floor(time(UKgas)))
# 打印季度标签
unique(paste0("Qtr", cycle(UKgas)))
# 打印前6个完整时间标签
head(paste(floor(time(UKgas)), paste0("Qtr", cycle(UKgas))))

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