如何将tsibble导出至Excel并保留时间索引为YYYY Qx字符格式

问题概述 #

导出tsibble到Excel时，季度/月度时间索引会被转换成自1970年1月1日起的天数数值，无法保留YYYY Qx（如1998 Q1）或YYYY-MM这类直观格式，但导出CSV时格式正常。

解决方案 #

核心思路是将tsibble的时间索引列转换为字符格式的时间字符串，再导出到Excel。这样Excel会直接保留字符串样式，不会自动解析为日期数值。

季度时间序列示例 #

针对季度数据，使用yearquarter()函数处理时间索引后转为字符：

library(fpp2)
library(tsibble)
library(writexl)

# 转换tsibble并格式化时间索引
visnights_formatted <- as_tsibble(visnights) |>
  mutate(date = as.character(yearquarter(date)))

# 导出到Excel
write_xlsx(visnights_formatted, path = "visnights.xlsx", col_names = TRUE)

月度时间序列示例 #

针对月度数据，用yearmonth()函数处理：

library(tsibble)
library(writexl)

# 创建月度时间序列并转为tsibble
z <- ts(matrix(rnorm(300), 100, 3), start = c(1961, 1), frequency = 12)
exp <- as_tsibble(z, pivot_longer = FALSE)

# 格式化时间索引为字符
exp_formatted <- exp |>
  mutate(index = as.character(yearmonth(index)))

# 导出到Excel
write_xlsx(exp_formatted, path = "exp.xlsx", col_names = TRUE)

原理说明 #

tsibble的时间索引是yearquarter或yearmonth这类特殊时间类型，writexl在导出时会读取其底层的日期数值（即自1970-01-01的天数）。将其转换为字符格式后，Excel会直接显示字符串内容，避免了自动解析为数值的问题。

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