R:quantmod包抓取股票数据

> library(quantmod)

> GBIA<-getSymbols("600004.ss",from = "2016-06-01",to = Sys.Date(),src = "yahoo",auto.assign=FALSE)

# 600004为股票代码，ss表示上证

> tail(GBIA,n=8)    #查看最近8天的数据

> chartSeries(GBIA,theme='white',up.col='green',dn.col='white',TA="addVo();addMACD();addSMA(n=20)")

#分别设置上涨和下跌柱体颜色，并添加20日移动平均线

效果以下：

(End)