Yahoo Finance Americaから株価を取得してグラフにする

R Rとトレード

Yahoo Finance Americaから株価を取得してグラフにする。
取得した株価の銘柄は「The Bank of New York Mellon Corporation (BK)」。

データはこんな感じのCSV。

Date Open High Low Close Volume Adj Close
2016/1/4 40.290001 40.290001 39.48 39.970001 7485000 39.970001
2015/12/31 40.970001 41.810001 40.900002 41.220001 6353500 41.220001
2015/12/30 41.59 41.790001 41.27 41.279999 2304600 41.279999
2015/12/29 41.459999 42.02 41.330002 41.720001 3491500 41.720001
2015/12/28 41 41.23 40.830002 41.139999 2811200 41.139999
・・・・・・・・・・・・・・・・・・・・

今回はCSVファイルからデータを読み込むのではなく、Adj Closeデータをコピーして、クリップボードのデータを読み込むコード。これは初めて知った。

bk_price <- read.table("clipboard") #クリップボードからデータを読み込む
head(bk_price) #確認

rownames(bk_price) #行名の取得
rev(rownames(bk_price)) #行名を逆順にする

head(rownames(bk_price)) #確認
tail(rownames(bk_price)) #確認
head(rev(rownames(bk_price))) #確認

bk_price <- bk_price[rev(rownames(bk_price)), , drop=FALSE]
head(rownames(bk_price))

plot(bk_price$V1, main="BK adj close price", type="l")

描画する際のデータは、当初bk_price[2]としていたが、これでは駄目で、bk_price$V1。
summary使って内容確認すると確かにそう。

> summary(bk_price)
       V1        
 Min.   : 0.430  
 1st Qu.: 1.150  
 Median : 4.913  
 Mean   :13.769  
 3rd Qu.:26.098  
 Max.   :45.253

そろそろ売ってもいい感じには見えるｗ。