Tushare在R中的使用

Tushare在R中的使用

Tushare ID:394467

Tushare注册链接：https://tushare.pro/register?reg=394467

官方介绍通过R SDK获取数据：https://waditu.com/document/1?doc_id=133

官方文档：https://tushare.pro/document/2?doc_id=213

（需注意官方文档中的代码为Python,不能直接在R中运行）

1.在Rstudio编辑器或命令行中输入：

install.packages('Tushare')

相关的依赖包会自动安装

2.载入Tushare包

library(Tushare)

3.获取api接口对象

api <- Tushare::pro_api(token = 'YOUR TOKEN HERE')
#'YOUR TOKEN HERE' 注册后，从官网上获取

复制后替换’YOUR TOKEN HERE’即可

4.示例：只传入接口名而不传入其他参数调用api接口

x <- api(api_name = 'stock_basic')
head(x,6)
#     ts_code symbol     name area industry market list_date
# 1 000001.SZ 000001 平安银行 深圳     银行   主板  19910403
# 2 000002.SZ 000002    万科A 深圳 全国地产   主板  19910129
# 3 000004.SZ 000004 国华网安 深圳 软件服务   主板  19910114
# 4 000005.SZ 000005   ST星源 深圳 环境保护   主板  19901210
# 5 000006.SZ 000006  深振业A 深圳 区域地产   主板  19920427
# 6 000007.SZ 000007  *ST全新 深圳 酒店餐饮   主板  19920413

5.传入接口名和其他参数调用api接口

#获取平安银行2018年10月1日到2018年10月10日的股票交易信息
x1 <- api(api_name = 'daily', ts_code = "000001.SZ", start_date = "20181001", end_date = "20181010")
head(x1,6)
# ts_code trade_date  open  high   low close pre_close change
# 1 000001.SZ   20181010 10.54 10.66 10.38 10.45     10.56  -0.11
# 2 000001.SZ   20181009 10.46 10.70 10.39 10.56     10.45   0.11
# 3 000001.SZ   20181008 10.70 10.79 10.45 10.45     11.05  -0.60
# pct_chg       vol  amount
# 1 -1.0417  995200.1 1045666
# 2  1.0526 1064084.3 1117947
# 3 -5.4299 1686358.5 1793455

6.pro_bar接口的使用

获得pro_bar接口，并命名为bar。和Tushare Pro的python包一样，为了统一使用行情接口，Tushare的R包也提供了pro_bar。

bar <- Tushare::pro_bar(token = 'YOUR TOKEN HERE')
#获取平安银行2021年9月1日到2021年9月10的股票交易数据
x3 <- bar(ts_code = "000001.SZ", start_date = "20210901", end_date = "20210910")
head(x3,5)
#     ts_code trade_date  open  high   low close pre_close change pct_chg        vol      amount
# 1 000001.SZ   20210910 18.89 20.77 18.84 20.57     19.00   1.57  8.2632 2314945.28 4668361.827
# 2 000001.SZ   20210909 19.11 19.15 18.80 19.00     19.23  -0.23  -1.196  739505.85  1399536.02
# 3 000001.SZ   20210908 19.24 19.55 19.10 19.23     19.24  -0.01  -0.052 1026201.05 1979771.479
# 4 000001.SZ   20210907 18.60 19.56 18.35 19.24     18.45   0.79  4.2818 1622344.16 3067365.668
# 5 000001.SZ   20210906 17.93 18.60 17.78 18.45     18.04   0.41  2.2727 1515225.56  2780281.08

7.bar接口可以传递adj来同时调取行情以及复权因子，并将计算后的结果返回出来。其他接口参数请参考Tushare Pro网站的详细说明。https://waditu.com/document/2?doc_id=14

A股复权行情参数说明：

x4 <- bar(ts_code = "000001.SZ", start_date = "20210801", adj = "hfq", ma = c(5,10))
head(x4,5)
# ts_code trade_date    open    high     low   close pre_close change
# 1 000001.SZ   20210922 2000.03 2020.17 1949.66 2012.34   2073.90  -0.55
# 2 000001.SZ   20210917 2115.31 2126.50 2060.47 2073.90   2135.45  -0.55
# 3 000001.SZ   20210916 2160.08 2182.46 2096.28 2135.45   2184.70  -0.44
# 4 000001.SZ   20210915 2161.19 2349.22 2147.76 2184.70   2167.91   0.15
# 5 000001.SZ   20210914 2258.57 2268.64 2156.72 2167.91   2261.92  -0.84
# pct_chg        vol      amount     ma5    ma10
# 1 -2.9682 1473365.21 2616707.242 2114.86 2162.31
# 2 -2.8826 1124879.63 2098715.196 2164.78 2156.83
# 3 -2.2541 1176953.56 2234474.948 2210.44 2149.22
# 4  0.7744  841618.41 1639298.361 2208.65 2130.86
# 5 -4.1564 1158173.15 2272080.156 2202.16 2113.29

8.获取新冠疫情信息

pro = Tushare::pro_api('3d9a5454bc20ec546b80eaeac8bb3726aa64fae24de3190acbd963c1')
# 获取美国新冠状肺炎疫情感染统计人数
df = pro(api_name = 'ncov_global',country='美国', fields='country,publish_date,confirmed_num,update_time')
head(df,5)