利用R语言中的tushare包下载中小板所有股票数据并筛选出符合条件的股票

MonzzZ

已于 2023-05-24 14:58:39 修改

阅读量281

点赞数 1

文章标签： r语言开发语言

于 2023-05-24 14:55:28 首次发布

本文链接：https://blog.csdn.net/weixin_60579491/article/details/130847008

版权

作者的tushare ID：456548

作者在股市进行比较短线的投资，开发了一些高效的指标作为买卖的参考，于是需要k线、市值、换手率等数据进行研究，同花顺等软件上面大多数据不能导出，所以找到了tushare这款接口，可以免费获取一些基本的数据，但是需要积分（学生有免费积分！）

中小板的股票有1000多只，复盘的时候不可能每只都看，先用代码筛选出符合指标的股票，再持续关注。

tushare是R语言上的一个包，可以获取许多股票数据，大家可以自行前往其官网查看，www.tushare.pro

直接上代码，首先下载tushare包，并用library加载：

install.packages('Tushare')
 
library('Tushare')

tushare是有权限的，想从tushare上获取数据，要先前往其官网进行注册，然后获取你本人的token码，输入R里，与tushare进行连接。相当于token码是你的通行证，在R里输入下述代码，就可以进行登陆。

bar <- Tushare::pro_bar(token = '****（你的token）')
api <- Tushare::pro_api(token = '****（你的token）')

设置好接口后，下一步就是下载数据了！

Sys.setlocale("LC_CTYPE","Chinese") #设置中文格式防止下载的数据乱码
 
ts_code <- api(api_name = 'stock_basic',market = '中小板')[,1] #获取中小板所有股票的代码
 
enddate <- 20230501 #股票数据的结束时间
startdate <- 20230524 #股票数据的开始时间
 
for (j in 1:length(ts_code)) {
  fit <- try(df <- bar(ts_code = ts_code[j], asset='E',adj = 'hfq',
                       start_date = startdate, end_date = enddate))
  if('try-error' %in% class(fit)){
    next
  }
  #在这里设置条件，筛选出即可 
  Sys.sleep(0.05)  #sleep一下，防止获取速度太快出错
}

作者用了个try函数，防止出错中断，出错的原因一般是这只股票上市时间在你的startdate之后。

比如我要筛选出今天涨停的股票。

a <- c() #创建一个空白的向量记录符合条件的股票代码
for (j in 1:length(ts_code)) {
  fit <- try(df <- bar(ts_code = ts_code[j], asset='E',adj = 'hfq',
                       start_date = startdate, end_date = enddate))
  if('try-error' %in% class(fit)){
    next
  }
  
  if(df$pct_chg[1]>(9.8)){
    a <- c(a,ts_code[j])
  }
  Sys.sleep(0.05)  #sleep一下，防止获取速度太快出错
}

print(a)

最后输出a，就可以看到符合条件的股票代码了。

作者的tushare ID：456548
————————————————