对齐多个 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 中有大量示例；确保检查出来。