第三篇：簡單數據處理（上市公司財務分析）

學習的阻抗太大，一言不合就犯拖延症，還是得從自己感興趣的地方入手去引導自己。

前段時間一個老司機展示了一份資料，在EXCEL裡面只要輸入A股股票代碼，就能得到此股所有財務狀況圖形及估值狀況，十分震撼。

那我就以此為目標用R語言做個吧。希望學完就差不多做完了。

在網上仔細搜索了下，用在量化投資上的策略，都不是價投，而我一直做價投，雖然那些策略不一定不好，但不適合我的還是不去深入了。

所以也沒找到用R語言做價投的學習資料，但是可以導出財務數據，辨別財務是否健康以及估值水平。

簡單做了下，第一部分做技術面可以參考，《量化投資 以R語言為工具》裡面有詳解；第二部分是可以導出財務數據的，奇怪怎麼沒有書。。。

還有以下問題需要解決：

1，比率分析及估值分析。（還沒構思好怎麼處理高效，且為什麼沒有可以設置N年財報的地方。。。）

2，如何創建界面，只需輸入股票代碼即可生成需要的數據。

require(quantmod)

#1,抓取數據

getSymbols("JKS")

#2，數據預處理

# 判斷數據是否包含openhighlow等數據列

is.OHLC(JKS)

# 判斷數據是否包含交易量

has.Vo(JKS)

# 提取收盤價

Op(JKS)

# 提取局部高點

seriesHi(JKS)

#3可視化

chartSeries(JKS)

candleChart(JKS)

candleChart(JKS,theme=white, type=candles)

reChart(major.ticks=months,subset=first 16 weeks)

chartSeries(JKS, theme="white",TA="addVo();addBBands();addCCI()")

#獲取財務數據

args(getFinancials)

args(getFin)

getFin(JKS)

viewFinancials(JKS.f, BS,A)

viewFinancials(JKS.f, IS,A)

viewFinancials(JKS.f, CF,A)

F1 <- data.frame(viewFinancials(JKS.f, BS,A))

write.csv(F1, file="F:/JKS/BS.csv")

F2 <- data.frame(viewFinancials(JKS.f, IS,A))

write.csv(F2, file="F:/JKS/IS.csv")

F3 <- data.frame(viewFinancials(JKS.f, CF,A))

write.csv(F3, file="F:/JKS/CF.csv")

推薦閱讀：