对齐多个 xts 时间序列图

Question

我有一个包含 4 列的 xts 对象。前 3 列是比例的平均值以及置信下限和上限。第 4 列是样本大小。由于比例不同，我认为将前 3 列绘制在一个图表上，并将第四列绘制在其正下方的单独图表上是有意义的。关于如何执行此操作有什么建议吗？

下面是构建一个 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 中有大量示例；请务必检查一下。