用R语言玩玩股票(二)

声明：本人不炒股，贴子纯为娱乐！

为何要学编程？

1. 训练逻辑思维（预防痴呆）

2. 减少重复劳动（过程不轻松）

3. 提高分析效率（需反复摸索）

在上一篇的博文¹里，用R语言简单示范了茅台股票的一些分析。如果我们想一次性分析多个股票，那么如何处理？

利用lapply和自编函数

把之前贴子里函数分别改写为两个函数get.stock和stock.fun，然后利用lapply函数来获取多个股票并进行分析。'000001.ss’为上证指数。

// 获取多个股票   
code2<-c('000001.ss','600519.ss','603444.ss','601398.ss')
mm<-lapply(code2, get.stock)
sn<-c('SSI','MT','JBT',"ICBC") 
names(mm)<-sn    
//对每个股票分别分析   
mm2<-lapply(mm, stock.fun)   

上述的mm2是个大列表，含有指定4项的所有分析，具体为4个组件，每个组件又含有17个子组件。以茅台MT为例：

//含有4个组件
> names(mm2)
[1] "SSI"  "MT"   "JBT"  "ICBC"     
//茅台组件下的17个子组件     
> names(mm2$MT)
 [1] "fig1"    "fig2"    "fig3"    "fig4"    "fig5"    "fig6"   
 [7] "fig7"    "cdat"    "vdat"    "cdat.HL" "bdat"    "sdat1"  
[13] "bsdat1"  "sdat2"   "bsdat2"  "sldat"   "bssdat"    
//茅台购入点、出售点和止亏点     
> head(mm2$MT$bssdat)
              buy sell   stop
2018-03-15 746.47   NA     NA
2018-03-19 753.48   NA     NA
2018-03-21     NA  742     NA
2018-03-28     NA   NA 682.05
2018-05-08 708.83   NA     NA
2018-05-10 714.19   NA     NA

通过下述代码，可获取茅台股票的关键点图。

mm2$MT$fig7

图形如下：

绘制所有4项关键点的总图

上述的程序，可以得到每一项股票或指数的关键点图，但要综合在一起，需要进一步编写函数，一次性获取所有4项的三个关键点（购入点、出售点和止亏点）数据，然后再做图：

res3<-refm.tdat(mm2,sname=sn)     
drawPoint2(res3)

生成的图形如下：

从图中可以看出，工行股票（ICBC）比较惨淡，真的是爱买不买。似乎应证了一点：好东西不便宜，想从股票中赚钱，可以从高价股票中寻找机会。这只是个人观点，请勿当真！
下一篇贴子将试试利用R语言进行股票的预测。

参考文献

---

1. https://blog.csdn.net/yzhlinscau/article/details/94444992 ↩︎