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)
