自动获取和展示中国宏观杠杆率数据

自动获取和展示中国宏观杠杆率数据

上周许文立老师在其公众号宏观经济研学会 介绍了中国宏观杠杆率数据。下载地址为:中国宏观杠杆率数据。为了方便获取这个数据,我写了一个简单的 Stata 程序。

Stata
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
*! 自动获取和展示中国宏观杠杆率数据
*! 程振兴 2019年4月1日
*! 中国宏观杠杆率数据:http://114.115.232.154:8080/
*! 示例: cmlrd
*! cmlrd, plot
capture program drop cmlrd
program define cmlrd
syntax [, plot]
di "获取数据中···"
qui copy "http://114.115.232.154:8080/handler/download.ashx" "CNBS中国杠杆率数据.xlsx", replace
di "数据来源:国家资产负债表研究中心(CNBS)"
qui{
import excel "CNBS中国杠杆率数据.xlsx", sheet("Data") firstrow clear
drop J K L
drop in 1
destring, replace
gen date = date(年份, "DMY")
order date
format date %tdCY-N-D
drop 年份
gen 月份 = mofd(date)
format 月份 %tmCY-N
order 月份
drop date
label var 月份 "数据月份"
}
if "`plot'" != ""{
tw line 居民部门 非金融企业部门 政府部门 中央政府 ///
地方政府 实体经济部门 金融部门资产方 金融部门负债方 月份, ///
lp(solid solid solid solid solid solid solid solid) ///
lc("166 206 227" "031 120 180" "178 223 138" "051 160 044" "251 154 153" "227 026 028" "253 191 111" "255 127 000") xti(日期) ///
note("数据来源:国家资产负债表研究中心(CNBS)") ///
ti(中国各部门宏观杠杆率趋势)
}
end // end of program cmlrd

使用:

Stata
1
cmlrd, plot

获取的数据如下:

# Stata

Comments

Your browser is out-of-date!

Update your browser to view this website correctly. Update my browser now

×