作者的tushareID:456548————————————————
作者用了个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)
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一下,防止获取速度太快出错
}
直接上代码,首先下载tushare包,并用library加载:
install.packages("Tushare")
library("Tushare")
文章为作者独立观点,不代表股票交易接口观点