如何利用stata一键实现把国家统计局地区分省年度数据快速整理成省级面板数

天之衡

之前发文介绍了《如何把国家统计局地区分省年度数据快速整理成省级面板数据》。虽然能实现快速把国家统计局地区分省年度数据快速整理成省级面板数据，但是实际操作中仍然需要修改一些指令。下面的代码能够一键实现把国家统计局地区分省年度数据快速整理成省级面板数据。
进入国家统计局→统计数据（数据从查询）→地区数据（分省年度数据）下载分省数据到文件夹。

运行一下以下代码能：

1. cd D:\科研数据\统计局数据\新建文件夹   //数据所在文件夹
   
2.   local files: dir "." files "*.xls",respectcase  
   
3.   local f =1
   
4.   foreach t in `files' {
   
5.     local b =  subinstr("`t'",".xls","",.)            
   
6.     import excel using "`t'", clear            
   
7.     local i =  substr(A[2],10,.)                    
   
8.       drop A
   
9.       ds
   
10.       foreach j in `r(varlist)'{                  
    
11.         replace `j'="a`f'"+substr(`j',1,4) in 4
    
12.       }
    
13.       foreach l in `r(varlist)'{                 
    
14.         local k =`l'[4]
    
15.         rename `l' `k'
    
16.       }
    
17.     keep in 5/35
    
18.     gen id = _n
    
19.     reshape long  a`f', i(id) j(year)
    
20.     label variable a`f' `"`i'"'
    
21.     destring a`f',replace
    
22.     save "`b'", replace
    
23.     local f=`f'+1
    
24. }
    
25. 
    
26. *合并数据
    
27.   local files: dir "." files "*.dta",respectcase
    
28.   dis `files'
    
29.   foreach j in `files' {
    
30.     cap merge 1:1 id year using "`j'"
    
31.     cap drop _merge      
    
32.   }
    
33.   gen 省份=""
    
34.   replace 省份 = "北京市" if id==1
    
35.   replace 省份 = "天津市" if id==2
    
36.   replace 省份 = "河北省" if id==3
    
37.   replace 省份 = "山西省" if id==4
    
38.   replace 省份 = "内蒙古自治区" if id==5
    
39.   replace 省份 = "辽宁省" if id==6
    
40.   replace 省份 = "吉林省" if id==7
    
41.   replace 省份 = "黑龙江省" if id==8
    
42.   replace 省份 = "上海市" if id==9
    
43.   replace 省份 = "江苏省" if id==10
    
44.   replace 省份 = "浙江省" if id==11
    
45.   replace 省份 = "安徽省" if id==12
    
46.   replace 省份 = "福建省" if id==13
    
47.   replace 省份 = "江西省" if id==14
    
48.   replace 省份 = "山东省" if id==15
    
49.   replace 省份 = "河南省" if id==16
    
50.   replace 省份 = "湖北省" if id==17
    
51.   replace 省份 = "湖南省" if id==18
    
52.   replace 省份 = "广东省" if id==19
    
53.   replace 省份 = "广西壮族自治区" if id==20
    
54.   replace 省份 = "海南省" if id==21
    
55.   replace 省份 = "重庆市" if id==22
    
56.   replace 省份 = "四川省" if id==23
    
57.   replace 省份 = "贵州省" if id==24
    
58.   replace 省份 = "云南省" if id==25
    
59.   replace 省份 = "西藏自治区" if id==26
    
60.   replace 省份 = "陕西省" if id==27
    
61.   replace 省份 = "甘肃省" if id==28
    
62.   replace 省份 = "青海省" if id==29
    
63.   replace 省份 = "宁夏回族自治区" if id==30
    
64.   replace 省份 = "新疆维吾尔自治区" if id==31   
    
65.   order 省份 id year
    
66. *删除单变量数据
    
67.   foreach j in `files' {
    
68.     erase "`j'"
    
69.    }

复制代码

来源：https://www.jianshu.com/p/5cca1a2edc1c
免责声明：如果侵犯了您的权益，请联系站长，我们会及时删除侵权内容，谢谢合作！