xts循环绘制：无输出

Question

标准 plot 方法会立即显示结果。但是对于xts对象，这只适用于在循环中未调用 plot.xts 的情况。例如，此代码可以正常工作：

library(xts)
data(sample_matrix)
sample.xts <- as.xts(sample_matrix)
plot(sample.xts)

以下代码不显示任何结果：

# dev.off()
par(mfrow=c(1,2))
for (i in seq(2)) {
    plot(sample.xts)
}

第二种情况中的情节在哪里？ 为什么xts.plot不像标准的绘图函数那样？

Answer 1

Plot返回一个绘图对象，在第一种情况下默认打印。在循环或函数中，您需要显式打印它。

par(mfrow=c(1,2))
for (i in seq(2)) {
    print(plot(sample.xts))
}