統計ソフトRを使用して株価チャートを簡単に作成(4)

ようやくチャートが描ける準備が整ったので分析に入ります。

まずは自分で作成した計算式で作成した値をチャートに書いてみます

library(RFinanceYJ)
library(quantmod)
stockCode&lt;-&quot;6758.t&quot;
today&lt;-Sys.Date()
sinceDate&lt;-today-100 #100日分
stockData&lt;-quoteStockTsData(stockCode,since=sinceDate)
colnames(stockData)&lt;-c(&quot;Date&quot;,&quot;Open&quot;,&quot;High&quot;,&quot;Low&quot;,&quot;Close&quot;,&quot;Volume&quot;)
stockData.zoo&lt;-read.zoo(stockData)
candleChart(stockData.zoo,theme=&quot;white&quot;)
#とりあえず平均値をチャート領域に書いてみる
mydata&lt;-data.frame(Date=stockData$Date,Close=mean(stockData$Close))
mydata.zoo&lt;-read.zoo(mydata)
addTA(mydata.zoo,on=1,col=&quot;red&quot;)

library(RFinanceYJ)

library(quantmod)

stockCode<-"6758.t"

today<-Sys.Date()

sinceDate<-today-100 #100日分

stockData<-quoteStockTsData(stockCode,since=sinceDate)

colnames(stockData)<-c("Date","Open","High","Low","Close","Volume")

stockData.zoo<-read.zoo(stockData)

candleChart(stockData.zoo,theme="white")

#とりあえず平均値をチャート領域に書いてみる

mydata<-data.frame(Date=stockData$Date,Close=mean(stockData$Close))

mydata.zoo<-read.zoo(mydata)

addTA(mydata.zoo,on=1,col="red")