r - quantmod チャートを段階的に作成し、最終結果を単一ページの 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()   

問題は、のような単一ページの pdf を生成できるかどうかですが、段階的chart1.pdfに使用addTA()できます。説明のために、次のコードは 3 ページの pdf を作成しますchart2.pdf。そのpdfの最終ページを直接作成したいのですが、上記のようaddTAに元の呼び出しで呼び出しを指定しませんchartSeries。

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

Answer 1

必要な数のステップでチャートを作成し、それを使用dev.copyして PDF を作成できます。

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()