퀀텀 차트를 점진적으로 구축하고 최종 결과를 단일 페이지 pdf로 내보낼 수 있습니까?

Question

나는 quantmod로 제작 된 차트의 pdf를 만들고 싶습니다. 예를 들어,

library(quantmod) 

data(sample_matrix) 
d <- as.xts(sample_matrix) 

pdf("chart1.pdf") 
chartSeries(d$Open,TA=c(addTA(d$Close,on=1),addTA(d$High))) 
dev.off() 

문제는 chart1.pdf처럼 단일 페이지의 PDF를 생성 할 수 있지만 점진적으로 addTA()를 사용 여부입니다. 예를 들어 다음 코드는 3 페이지짜리 pdf 인 chart2.pdf을 만듭니다. 해당 PDF의 마지막 페이지를 직접 만들고 싶습니다만 위의 chartSeries에 대한 원래 호출에서 addTA 호출을 지정하지 않아도됩니다. 당신이 원하는대로

pdf("chart2.pdf") 
chartSeries(d$Open) 
print(addTA(d$Close,on=1)) 
print(addTA(d$High)) 
dev.off() 

Answer 1

당신은 그것의 PDF 파일을 만들 수 dev.copy을 사용하여 다음과 같은 여러 단계에서 차트를 만들 수 있습니다.

library(quantmod) 

data(sample_matrix) 
d <- as.xts(sample_matrix) 

chartSeries(d$Open) 
addTA(d$Close,on=1) 
addTA(d$High) 
dev.copy(pdf, "chart2.pdf") 
dev.off()