여러 xts 시계열 그림 맞추기

Question

xts 개체에 4 개의 열이 있습니다. 처음 3 개 열은 비율에 대한 평균 및 하한 및 상위 신뢰 범위입니다. 네 번째 열은 샘플 크기입니다. 척도가 다르기 때문에 첫 번째 3 개의 기둥을 하나의 그래프에 플롯하고 4 번째 그래프를 별도의 그래프에 그려 두는 것이 합리적이라고 생각했습니다. 이 작업을 수행하는 방법에 대한 제안 사항은 무엇입니까?

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을 사용하면 쉽게 할 수있다 :

여기에 내가 가진 하나처럼 XTS 객체를 구축하는 코드입니다. 이런 식으로 뭔가 당신이 시작됩니다 : 예

library(xts) 
data(sample_matrix) 
x <- as.xts(sample_matrix) 
plot.zoo(x, screens=c(1,1,1,2)) 

있다 톤을 ?plot.zoo에; 그들을 체크 아웃해야합니다.