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

问题是，是否可以像chart1.pdf一样生成单页pdf，但要递增地使用addTA()。为了说明，下面的代码将创建一个三页的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

您可以按照需要的步骤创建图表，然后使用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()