如何用R语言寻找值得长期投资的股票

写在前面的话

终于开始用R语言进行我一直感兴趣的股票投资实践，真是激动人心、心潮澎湃啊。^_^^_^^_^

动手开始实践之前，先谈谈我对A股投资的几点看法。系统学习股票投资一段时间以来，我是坚持认为股票投资是目前国内理财方式中比较不错的理财方式。但前提是你必须学习学习再学习，具备相关理财知识后再进入该领域。你开个饭店，还要学习经营管理，甚至研究厨艺；某宝买个衣服还要货比三家，而股市中真金白银的买来买去，仅仅靠感觉吗？当然不行，必须的有理财知识和风险意识。一定要建立自己的交易系统，否则还是谨慎进入。这是忠告，也是我的血的教训。

提到交易系统，再多说几句。所谓自己的交易系统，就是要选择适合自己的投资方式。选择腾讯、谷歌这样的高成长性公司，长期持有其股票是交易系统，靠的是耐心；股市里低买高卖，频繁操作获取利差，也是交易系统，靠的是对技术指标的熟练应用；研究国家政策和行业特点，对ST的国企分析其改革重组的机率，获取高额的回报，也是交易系统，靠的是对宏观政策的敏锐解读和企业基本面的独特研究；持有交通银行这样的巨无霸股票，吃股息和分红收益，同时进行无风险的打新策略，也是交易系统，靠的是稳定的心态。仁者见仁智者见智，交易系统没有优劣，只有适合与否。巴菲特靠价值投资闻名于世，无数后人追捧；而索罗斯靠市场投机同样挣的盆满钵满，孰对孰错呢？

股票交易是零和游戏不假，你挣的钱肯定是某个人或某些人亏的钱。但它完全不同于赌博，股票买卖想要实现盈利就是控制好风险，持续做大概率事件，而不是靠运气。从逻辑上分析，买入成长性的公司并长期持有，大概率是会挣钱的，这点毋庸置疑。
但在具体操作层面，股票操作还是很考验人性的，能有一笔十年不动的资金放那、能够买入后半年甚至一年关注下股价，能够容忍自己买入股票后两年还是当初的价格甚至更低（巴菲特还经常买入后被套好几年）…………大家可以扪心自问下，当遇到这些情况时你是不是会有卖掉不做的冲动。就好比减肥，谁都知道少吃多运动就会瘦，可现实生活中做到的人比例却是极低。

在这里我想说的是，买入成长性公司并长期持有，这是“道”的层面，属宏观指导；具体投资还需掌握基本面分析、量价关系、左侧和右侧的不同趋势交易、甚至K线等等“术”的层面知识，要会制定微观操作策略。“道”与“术”相结合，采用定投等策略，好投资美股（政策性影响较小，你懂的）。这是我的一点投资心得，也是我正努力的方向。与大家共勉。

废话不叙，现在开始我的R语言实践之旅：在R语言中用Quantmod金融包分析股票波动及长期持有的收益。

1、选择标的

选取A股中能够称得上价值投资的品种贵州茅台（600159），机械类龙头三一重工（600031）和养殖概念股正邦科技（002157）。时间跨度从2007年1月至2017年8月底，看看一直持有这三只股票收益会如何。同时这十年也是房价狂飙突进的十年，对比下收益，看看能有什么结果。

说明：正邦科技是从2007年8月17日上市，时间稍稍短一点。

2、计算持有三支股票10年的收益

（1）读入股票数据并存盘

在R语言中运用quantmod包读取三只股票数据，下载的股票数据当然的存盘了。代码如下：

###读取股票数据并存盘
library(quantmod)
library(dplyr)
library(stringr)
data1 <- getSymbols("600519.ss",src="yahoo",from="2007-01-01",to="2017-08-31",auto.assign = FALSE)
#chartSeries(`600519.SS`)
data2 <- getSymbols("600031.ss",src="yahoo",from="2007-01-01",to="2017-08-31",auto.assign = FALSE)
data3 <- getSymbols("002157.sz",src="yahoo",from="2007-01-01",to="2017-08-31",auto.assign = FALSE)
write.csv(data1,file = "G:/统计概率学习实践/第三关实践作业/data/600519.csv")
write.csv(data1,file = "G:/统计概率学习实践/第三关实践作业/data/600031.csv")
write.csv(data1,file = "G:/统计概率学习实践/第三关实践作业/data/002157.csv")