pred <- predict(var_model, n.ahead = n_pred)画出来的var怎么是线性的啊

如果你使用 `predict()` 函数来预测 VAR 模型的结果，得到的结果是一个线性预测值，而不是一个时间序列。如果你想要得到 VAR 模型的时间序列预测结果，可以使用 `forecast()` 函数。

你可以尝试以下代码：

var_forecast <- forecast(var_model, h = n_pred)
autoplot(var_forecast) +
  labs(title = "VAR模型预测结果")

这样你就可以得到 VAR 模型的时间序列预测结果图了。