通過回路R繪制多個y軸圖

Question

我有以下代碼來創建簡單的Y軸分割圖。 我想遍歷（作為示例）edhec數據集，以使面板矩陣中的每個面板都有兩行：edhec的第一個向量在左側，而隨后的一個向量在右側：

library(zoo)
library(PerformanceAnalytics)

data(edhec)
edhec <- as.zoo(edhec)
plot(edhec[ ,1], ylab=colnames(edhec[ ,1]), lwd=2)
par(new=TRUE)
plot(edhec[ ,2], ann=FALSE, yaxt="n", col="darkgreen", lwd=1)
axis(side=4)

謝謝你的幫助！

Answer 1

我猜這大概是您想要的嗎？

library(zoo)
library(PerformanceAnalytics)

data(edhec)
edhec <- as.zoo(edhec)

par(mfrow=c(ceiling(ncol(edhec)/2), 2), 
  mar=c(0, 2, 0, 2), oma=c(2, 0, 1, 0), mgp=c(2, 0.7, 0))

invisible(lapply(1:ncol(edhec), 
  function(x) {
      par(new=FALSE)
      plot(edhec[, x], 
        xaxt=ifelse(x >= ncol(edhec) - 1, "s", "n"),
        ylab="")
      par(new=TRUE)
      plot(edhec[, x + 1], col="darkgreen", ann=FALSE, xaxt="n", yaxt="n")
      axis(side=4)
  }
))