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