r - 使用两个垂直轴绘制以不同比例叠加的多个 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)