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