Loop Through Stock Tickers and Creat全チャートのリスト

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

PDF（）関数を呼び出すとdev.offを使用して、すべてのチャートを作成した後にプロットするデバイスをオフにするには、（）私の仕事：

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

コードは私の作業ディレクトリ内のPDF文書を作成したことtest.pdfと呼ばれます。 3つのプロットがあり、1ページに1つのプロットがありました。