作者的a股交易信息接口,tushareID：456548
直接上代码，首先下载a股交易信息接口,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，就可以看到符合条件的股票代码了。
作者的tushareID：456548————————————————
文章为作者独立观点，不代表股票交易接口观点
相关文章
股民评论