clear all
set more off
cap log use
/*导入数据*/
import excel "/Users/-liziyao/Documents/MBA/DMD/12.4作业/上课用数据4.xlsx", sheet("Sheet1") firstrow
drop in 1
destring, replace
drop if code==.
/*添加标签*/
la var   code   " 当年行政区划编码 "
/*描述性统计*/
su R001-Dep08
corr R001 E0005
corr R001 E0005, c
hist R001, bin(15) start(0) percent
graph pie R001, over(prefecture)
graph pie R001, over(prefecture) pl(_all percent) descending sort angle0(0) ti("分地区一般预算收入分布图") note("数据来源： 国家统计局 《全国地市县财政统计资料》")
gen city=1
tostring city, replace
replace city="阿克苏地区" if prefecture ==652900
replace city="喀什地区" if prefecture ==653100
replace city="吐鲁番地区" if prefecture ==652100
replace city="哈密地区" if prefecture ==652200
replace city="和田地区" if prefecture ==653200
replace city="巴音郭楞蒙古自治州" if prefecture ==652800
replace city="克孜勒苏柯尔克孜自治州" if prefecture ==653000
graph pie E001, over(city) pl(_all percent) descending sort angle0(0) b1("分地区一般预算收入分布图") note("数据来源： 国家统计局 《全国地市县财政统计资料》")legend(pos(3) c(1)) graphregion(fcolor(white) lcolor(white)) pie(6, explode)

// gen pos =3
// edit county pos
// replace pos = 1 in 25
// replace pos = 3 in 15
// replace pos = 2 in 32
// replace pos = 5 in 23
// replace pos = 6 in 40
// replace pos = 2 in 22
// replace pos = 2 in 39
// scatter E0005 E001 if E001>=10000, mlabel (county) msiz(small) mlabs(small) graphregion(fcolor(white) lcolor (white)) mlabv(pos) ///
// ti("分县一般预算支出与教育支出散点图") subtitle("(仅统计年度预算支出超1亿元县级区域)") note("数据来源： 国家统计局 《全国地市县财政统计资料》") yti("教育事业支出") mlabc(black) mc(red) || lfit E0005 E001, lc(blue)