使用两个垂直轴绘制叠加不同比例的多个xts对象

Question

我有两个单变量的时间序列，想要在同一个屏幕图中绘图。问题在于它们具有非常不同的尺度，因此图表变得非常难以解释。如何绘制叠加的每个系列，但每个系列使用不同的垂直轴？

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)