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()增量使用。为了说明，以下代码将创建一个三页的 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()