Error in na.interp(ts_data_with_na, option = "linear") : unused argument (option = "linear")

非常抱歉，我再次犯了错误。`na.interp()`函数并没有`option`参数，因此需要将其删除。下面是修改后的R代码：

# 加载需要用到的包
library(forecast)

# 生成一个带有异常值的时间序列
set.seed(123)
ts_data <- rnorm(50)
ts_data[25] <- 10

# 绘制时间序列图
plot(ts_data)

# 使用3σ原则检测异常值
sd_value <- sd(ts_data)
mean_value <- mean(ts_data)
threshold_upper <- mean_value + 3 * sd_value
threshold_lower <- mean_value - 3 * sd_value
outliers <- which(ts_data > threshold_upper | ts_data < threshold_lower)
print(outliers)

# 删除异常值
ts_data_no_outliers <- ts_data[-outliers]
plot(ts_data_no_outliers)

# 使用线性插值填补缺失值
ts_data_with_na <- ts_data_no_outliers
ts_data_with_na[c(10, 20)] <- NA
ts_data_interp <- na.interp(ts_data_with_na)
plot(ts_data_interp)

以上代码已经删除了`option`参数，可以正常运行了。需要注意的是，在使用`na.interp()`函数时，需要将缺失值用`NA`表示。