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

69 阅读 0 评论 46 点赞

我是靠谱客的博主认真小蘑菇，最近开发中收集的这篇文章主要介绍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"))#在同一个图片展示两只股票