如何将含预测区间的TSIBBLE预测结果导出为CSV文件

你的tsibble包含特殊类型列（如hilo置信区间、dist分布），直接导出会导致Excel无法识别这些格式，需要先处理为普通数值列再导出，步骤如下：

1. 处理特殊类型列 #

假设你的tsibble对象名为forecast_results，运行以下R代码展开置信区间和分布参数：

library(tsibble)
library(dplyr)
library(tidyr)

processed_data <- forecast_results %>%
  # 拆分80%置信区间为上下限
  mutate(
    `80%下限` = map_dbl(`80%`, ~ .x$lower),
    `80%上限` = map_dbl(`80%`, ~ .x$upper),
    # 拆分95%置信区间为上下限
    `95%下限` = map_dbl(`95%`, ~ .x$lower),
    `95%上限` = map_dbl(`95%`, ~ .x$upper),
    # 提取Fatturati分布的均值和方差
    Fatturati均值 = map_dbl(Fatturati, ~ .x$mean),
    Fatturati方差 = map_dbl(Fatturati, ~ .x$var)
  ) %>%
  # 移除原始特殊类型列
  select(-Fatturati, -`80%`, -`95%`) %>%
  # 将Month转为Excel可识别的日期格式（可选）
  mutate(Month = as.Date(Month))

2. 导出为CSV文件 #

处理完成后，导出到本地CSV：

write.csv(processed_data, "预测结果.csv", row.names = FALSE, fileEncoding = "UTF-8")

导出的CSV文件可直接用Excel打开，所有列均为数值或日期类型，方便后续分析和报告制作。

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