使用R语言tsibbledata拟合ETS模型预测时出现报错求助

警告原因 #

两条警告的核心是**Exports列未正确转换为数值型**，导致ETS模型拟合时的数值运算（均值计算、减法）失败：

• 警告1：模型计算均值时，Exports不是数值/逻辑型，返回NA
• 警告2：模型执行减法操作时，Exports为因子类型，因子不支持减法运算

修正后的代码 #

library(tsibbledata)
library(tidyverse)
library(fable)
library(feasts)

# 筛选意大利数据并规范处理Exports列
ItalyExp <- global_economy %>% 
  filter(Country == "Italy") %>%
  # 直接转换为数值型（若原列为因子则改为as.numeric(as.character(Exports))）
  mutate(Exports = as.numeric(Exports)) %>%
  # 移除含缺失值的行（避免模型计算出错）
  drop_na(Exports)

# 绘制出口数据时序图
ItalyExp %>% autoplot(Exports) + labs(title = "Italian Exports")

# 拟合指定参数的ETS模型
etsANNit <- ItalyExp %>%
  model(ETS(Exports ~ error("A") + trend("N") + season("N")))

# 查看模型结果
etsANNit

# 生成10期预测
fc <- etsANNit %>% forecast(h = 10)

关键修正点 #

• 用mutate()替代直接修改$列：tsibble是结构化时序数据，直接用$修改会破坏其内部结构，导致类型识别异常
• 处理缺失值：drop_na()移除含NA的行，避免均值计算时返回NA
• 简化类型转换：若global_economy$Exports原本为数值型，无需先转字符再转数值；若为因子型，再添加as.character()转换步骤

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