在plot.zoo (多个)和par(new=T)之后出现混乱的面板

Question

我使用plot.zoo创建了一个包含六个面板的图，并使用par(new = T)清除了我的图形设置。我预计下一个由六个面板组成的图将“放在”另一个的上面。然而，第一个面板丢失了(仍然在旧的图上)，只有2-6显示(但在错误的位置)。除了par(new = T)，我还需要重置什么？

> require(PerformanceAnalytics) 
> data('managers') 
> managers <- managers[,c('HAM1','HAM3','HAM4','SP500 TR','US 10Y TR','US 3m TR')]
> plot.zoo(managers) 
> par(new = T) 
> plot.zoo(managers*1.1, col='red')

Answer 1

在多面板打印上，plot.zoo不支持此功能。通常，它希望您在一个调用中完成所有这些操作，可能是通过指定一个panel=函数。

这里有两种方法。请注意，在第一种方法中回收了screens。

library(PerformanceAnalytics)
library(zoo)

data("managers")   
cn <- c('HAM1','HAM3','HAM4','SP500 TR','US 10Y TR','US 3m TR')
managers_z <- as.zoo(managers)

# 1. without a panel function
plot(cbind(managers_z[, cn], 1.1*managers_z[, cn]), screens = seq_along(cn),
  col = rep(c("black", "red"), each = length(cn)))

# 2. with a panel function
pnl <- function(x, y, ...) {
  lines(y ~ x, ...)
  dots <- list(...)
  dots$col <- "red"
  do.call(lines, c(1.1 * y ~ x, dots))
}
plot(managers_z[, cn], panel = pnl)

另请注意，如果您想在多个过程中执行此操作，则可以使用xyplot.zoo执行此操作，如下所示：

library(lattice)

xyplot(managers_z[, cn])

for(i in seq_along(cn)) {
  trellis.focus("panel", 1, i)
  panel.lines(1.1 * managers_z[, cn[i]], col = "red")
  trellis.unfocus()
}