时间序列绘图报错Unsupported type passed to argument 'data' 求解决

问题根源 #

1. dygraph要求输入数据为xts或zoo格式的时间序列对象，而非普通data.frame与forecast结果直接拼接的混合结构，这是报错Unsupported type passed to argument 'data'的核心原因。
2. 原代码中直接用problem$var作为dySeries的列名是错误的，cbind后的数据集列名并非该格式。
3. 预测结果（lower/mean/upper）对应未来12期数据，需与原始数据的时间轴对齐，才能在同一张图中展示。

完整修复代码 #

# 加载所需包
library(forecast)
library(dygraphs)
library(xts)

# 原始数据
problem = data.frame(time = c("2010-01", "2010-02", "2010-03", "2010-04", "2010-05", "2010-06", "2010-07", "2010-08", "2010-09", "2010-10", "2010-11", "2010-12"),
                     var = c(15, 16, 16, 14, 17, 12, 11, 15, 16, 18, 14, 11))

# 1. 将原始数据转换为xts时间序列对象
# 把字符型time转为日期格式（取每月第一天）
problem$date <- as.Date(paste0(problem$time, "-01"))
# 生成xts对象，指定时间索引和列名
actual_xts <- xts(problem$var, order.by = problem$date)
colnames(actual_xts) <- "Actual"

# 2. 拟合模型并处理预测结果
fit <- auto.arima(problem$var)
pred <- forecast(fit, h=12, level=0.95)

# 生成未来12个月的时间索引
future_dates <- seq.Date(from = as.Date("2011-01-01"), by = "month", length.out = 12)
# 将预测的下限、均值、上限转为xts对象
pred_xts <- xts(cbind(pred$lower, pred$mean, pred$upper), order.by = future_dates)
colnames(pred_xts) <- c("Lower", "Mean", "Upper")

# 3. 合并实际序列与预测序列，绘制图表
combined_xts <- rbind.fill.xts(actual_xts, pred_xts)

dygraph(combined_xts, main = "时间序列实际值与预测值") %>%
  dySeries("Actual", label = "实际值") %>%
  dySeries(c("Lower", "Mean", "Upper"), label = "预测值", fill = "red")

关键修复点说明 #

• 统一使用xts格式：确保数据带有连续的时间索引，dygraph能正确识别时间轴。
• 对齐时间轴：为预测数据生成对应的未来日期，保证实际值和预测值在时间维度上连续。
• 规范列名引用：dySeries使用合并后xts对象的列名，避免外部变量引用错误。

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