R语言绘制RSI交叉线

RSI= Relative Strength Index ,相对强弱指标
其背后的基本逻辑是：
股票买入的力量大于卖出的力量，则股票的价格会上涨。
股票的卖出力量大于买入的力量，则股票的价格会下跌。
RSI=100*(up/(up+down))
式中：
up-表示一个特定时间间隔内的上涨幅度平均值
down-表示一个特定时间间隔内的下跌幅度平均值
从公式可以看到：
RSI的取值范围是[0,100]
当RSI=0时，说明up/(up+down)=0,即up=0;
当RSI近似于0时，说明up/(up+down)近似等于0，即up<<down。
当RSI=50时，说明up/(up+down)=1/2,即up=down
当RSI=100时，up/(up+down)=1,此时down=0;
当RSI近似于100时，说明up/(up+down)近似于100，即down<<up。
从上述说明可以看出
当up>down时，RSI>50,表明股票上涨的力度比较大。
当up<donw时，RSI<50,表明股票下跌的力度比较大。
注意：中国的文化里讲究物极必反。
当RSI>80时，上涨的力度太大了，盛极必衰、月满则亏、日中则昃。表明，价格会由过快上涨慢慢恢复理性，可能要下跌了，可以卖出；
当RSI<20时，下跌的力度过大，否极泰来、苦尽甘来，价格可能由暴跌反弹，此时可以买入。
函数 RSI()语法格式：
RSI(price,n=14,maType,...)
式中：
price-需要计算的价格，可以是收盘价，开盘价等。
n- 时间间隔，默认是14天。
maType-计算上涨下跌平均值所采用的方式：
maType=EMA，默认值，指数平均值
maType=SMA,简单平均值。
RSI的“黄金交叉”与“死亡交叉”
“黄金交叉”：短期向上突破，穿过长期线；意味着上涨行情，买入信号。

”死亡交叉“：短期向下突破，穿过长期线；意味着下跌行情，卖出信号。

这里以指数RSI线的7日线、20日线作为短期线和长期线绘制“黄金交叉“和"死亡交叉”。

library(quantmod)
getSymbols("GOOG",src="yahoo",from="2016-01-01", to='2016-05-30') 
#chartSeries(GOOG,theme = 'white',name='谷歌',up.col = 'red',dn.col = 'green')
#显示一下数据看看
#head(GOOG$GOOG.Close)
Close<-GOOG$GOOG.Close
#names(Close)<-"show"     
#tail(Close)
rsi7<-RSI(Close,n=7,maType = "EMA")
ris14<-RSI(Close)  #默认值
rsi20<-RSI(Close,n=20,maType = "EMA")
par(mfrow=c(2,1))
plot(Close,type="l",main="谷歌的收盘价",ylab="收盘价")
plot(rsi7,type="l",main="RSI的黄金交叉与死亡交叉",ylab="RSI")
lines(rsi20,col="red",lty=6,lwd=2)
legend("bottomleft",legend=c("rsi7","rsi20"),col = c("black","red"),lty=c(2,8),cex=1);