Question

如何循环浏览股票行情，将每个股票行情复制到某种报告（例如PDF文件）并保存报告？下面的脚本循环遍历一堆代码，但它会用下一个图表覆盖每个先前的图表。我想列出上一个图表下的下一个图表，并列出PDF或Word文档中的所有内容。

library(quantmod)
stocks <- c("FIS", "AXP", "AVB")
stockEnv <- new.env()
symbols <- getSymbols(stocks, src='yahoo', env=stockEnv)
for (stock in ls(stockEnv)){
    chartSeries(stockEnv[[stock]], theme="white", name=stock,
        TA="addVo();addBBands();addCCI();addSMA(20, col='blue');
        addSMA(5, col='red');addSMA(50, col='black')", subset='last 30 days')     
}

Answer 1

使用dev.off（）创建所有图表后，调用pdf（）函数并关闭绘图设备对我有用：

library(quantmod)
stocks <- c("FIS", "AXP", "AVB")
stockEnv <- new.env()
symbols <- getSymbols(stocks, src='yahoo', env=stockEnv)

pdf('test.pdf')
for (stock in ls(stockEnv)){
  chartSeries(stockEnv[[stock]], theme="white", name=stock,
              TA="addVo();addBBands();addCCI();addSMA(20, col='blue');
        addSMA(5, col='red');addSMA(50, col='black')", subset='last 30 days')     
}
dev.off()

该代码在我的工作目录中创建了一个名为test.pdf的pdf文档。它有三个图，每页一个图。

循环通过股票行情和所有图表的创建列表

1 个答案: