r - 両方の垂直軸を使用して、異なるスケールで重ね合わせた複数の xts オブジェクトをプロットします

Question

同じスクリーン チャートにプロットしたい 2 つの単変量時系列があります。問題は、スケールが大きく異なるため、チャートの解釈が非常に難しくなることです。各シリーズを重ねてプロットする方法はありますが、それぞれが異なる縦軸を使用していますか?

library(xts)
mytime <- as.POSIXlt(seq(Sys.time()-100*60+1,Sys.time(),by=60), origin= '1970-01-01')
x <- xts(rnorm(1:100),mytime)
y <- xts(rnorm(1:100,100,10),mytime)
plot(as.zoo( merge(x,y)), screens=1)

Answer 1

これがあなたが望むものかどうかはわかりませんが、ここにアイデアがあります：

plot(as.zoo(x), las=1)
par(new=TRUE)               
plot(as.zoo(y),
     col=2,
     bty='n',               
     xaxt="n",               
     yaxt="n",              
     xlab="", ylab="")

axis(4, las=1)

legend("topleft",           
       legend=c("x","y"), 
       col=1:2,
       lty=1,              
       cex=0.85)