在批处理中没有plot（caret :: varImp（））的输出

Question

尝试绘制varImp的输出以进行PLS回归时，我看到奇怪的行为。这句话

plot(varImp(model.cv$fit), top = 6)

当我从RStudio控制台执行它时，

可以正常工作，但是当我“源”文件时，它没有任何输出。我所有的条形图等都可以正常工作；只是这个似乎只能在交互模式下工作。

模型拟合为

model.cv$fit <- train(mlabs ~ ., data = mutate(model.cv$mdat, 
                          mlabs = model.cv$mlabs), 
                      method = "pls", metric = "RMSE", tuneLength = 20,
                      trControl = control, 
                      preProc = c("zv","center","scale"))

varimp(varImp(model.cv$fit)的输出看起来不错（列表成员importance包含命名的缩放系数）。

我想将代码移到降价文档中，但是这样没用。