对齐多个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中有很多例子;一定要检查出来。