寻找5日均线突破20日均线最多的5个股票

5日均线突破20日均线，找出突破比例最大的5只股票。

## 加载况客的R包
library('ruibe') 

## 
## Attaching package: 'ruibe'
## 
## The following object is masked from 'package:base':
## 
##     system

##载入数据
stock<- getData(data='mktFwdDaily',date='2015-11-03',key='86c399642d2f9bfa6670a0fe1c93d38238ef2fda860ba0c6bc23f0ec976a01d3')

## 计算
stock$trend<- stock$ma5/stock$ma20-1
top<- head(stock[order(stock$trend,decreasing = T),],5)
topstock<- top$trend
names(topstock)<- top$qtid

##画图
barplot(topstock)