Выравнивание нескольких графиков временного ряда XTS

Question

У меня есть объект XTS с 4 столбцами. Первые 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; не забудьте проверить их.