对齐多个xts时间序列图

Question

我有一个4列的xts对象.前3列是一个比例的平均值和下限和上限置信度.第4列是样本大小.由于尺度不同,我认为在一个图形上绘制前3列是有意义的,并在其下方的单独图形上绘制第4列.有关如何做到这一点的任何建议？

这是构建xts对象的代码,就像我拥有的​​那样:

startTime = Sys.time()
n = 10
d = seq(startTime,startTime+n*24*60*60,by="1 day")
a = sample(10000,length(d),replace=TRUE)
p = runif(length(d))
l = p/2
u = p+(p+1)/2
x= xts(p,d)
x = cbind(x,l,u,a)
colnames(x) = c("prop","low","high","size")

Answer 1

如果你使用它很容易plot.zoo.这样的事情会让你开始:

library(xts)
data(sample_matrix)
x <- as.xts(sample_matrix)
plot.zoo(x, screens=c(1,1,1,2))

有很多例子?plot.zoo; 一定要检查出来.