R实战：【股票分析】用quantmod包绘制K线

R实战系列专栏

上代码：

library(quantmod)#加载包
setSymbolLookup(WK=list(name='603166.ss',src='yahoo'))#从雅虎获取个股数据
getSymbols("WK")
chartSeries(WK)#画图

注意：上面的WK好像必须大写，不知道为什么，小写好像就不行。没深究
你没看错，只要上面的四行代码即可完成任务

其中WK(区分大小写)是个股的行情数据：

绘制某一时间段的数据：

下面都是一些范例：

chartSeries(s,TA = 'addVo()',subset = "2016-05-01/2017-08-22")

chartSeries(s,TA = 'addVo()',subset = "2016-08/2017-08")

library(quantmod)#加载包  
setSymbolLookup(SS=list(name='000001.ss',src='yahoo', from='1991-01-01', to='2017-08-09'))#从雅虎获取个股数据  
getSymbols("SS")  
chartSeries(SS)#画图 
#chartSeries(SS, subset='2014-06::2017-08')
SS
names(SS)
x<-1991:2017
x
xChar<-as.character(x)
xChar

同时绘制两只股票

library(quantmod)#加载包
setSymbolLookup(szzs=list(name='000001.ss',src='yahoo'))#上证指数
getSymbols("szzs") 
setSymbolLookup(fdgf=list(name='603166.ss',src='yahoo'))#福达股份
getSymbols("fdgf")
x<-cbind(SZZS,FDGF)#扩充列：两个股票的数据并列
y<-cbind(x[,1],x[,7])#两个股票各提取一列
plot(as.zoo(y),main = "szzs/fdgf",ylab = c("szzs","fdgf"))#在同一个图片展示两只股票

可能遇到的问题：

1 无法连接目标机器，这个需要更新包，因为原来的包使用的是http协议去找雅虎财经，但是雅虎财经更新了使用https协议。这个网上搜一下就可以找到
2 安装包的过程出现“C:/Program”不是可执行命令，是因为不可以安装到中文路径下，卸载R重新安装到无中文字符的路径下即可。