Forked from studentrohman/Do file get dat acovid level kabupaten
Created
February 15, 2021 04:59
-
-
Save msaidf/aec9d0d997ce2113e080e67eabf042ce to your computer and use it in GitHub Desktop.
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| /*=============================================================================== | |
| kemendes data covid per Kabupaten | |
| copyrigh of Sekolah stata 2020 | |
| ================================================================================*/ | |
| cd "D:\Proyek\17_Kemendes\2. Data\covid" | |
| *-------------------------------------------------------------------------------- | |
| * get data from kawal data | |
| *-------------------------------------------------------------------------------- | |
| global prov 33 35 | |
| global data POSITIFSEMBUH POSITIFMENINGGAL POSITIFAKTIF POSITIFTOTAL | |
| foreach g in $prov{ | |
| di as text "---------------------proses provinsi `g'---------------" | |
| import excel "prov`g'.xlsx", sheet("prov`g'") clear | |
| keep if B=="Tanggal" | |
| foreach k of varlist _all{ | |
| local j = `j'+ 1 | |
| di as text " `k' dan `j'" | |
| ren `k' var`j' | |
| tostring var*, replace | |
| di as text "---------------------variabel var`j'--------" | |
| gen var`j'_ = date(var`j', "DMY") | |
| format var`j'_ %td | |
| drop var`j' | |
| ren var`j'_ var`j' | |
| } | |
| tempfile tanggal | |
| ren var1 kab | |
| ren var2 nama_kabupaten | |
| tostring kab, replace | |
| drop if kab=="" | |
| duplicates drop kab, force | |
| tostring var*, replace force | |
| reshape long var, i(kab) j(date) | |
| local j=0*0 | |
| ren var tanggal | |
| destring tanggal, replace | |
| format tanggal %td | |
| save `tanggal', replace | |
| foreach o in $data{ | |
| di as text" proses dataset pada `o'" | |
| import excel "prov`g'.xlsx", sheet("prov`g'") allstring clear | |
| foreach k of varlist _all{ | |
| local j = `j'+ 1 | |
| di as text " `k' dan `j'" | |
| ren `k' var`j' | |
| } | |
| drop if var2=="" | |
| gen keterangan= var2 if var1=="" | |
| carryforward keterangan, replace | |
| replace keterangan=upper(keterangan) | |
| replace keterangan=subinstr( keterangan, "-", "", .) | |
| replace keterangan=subinstr( keterangan, ",", "", .) | |
| replace keterangan=subinstr( keterangan, " ", "", .) | |
| keep if regexm(keterangan, "`o'") | |
| ren var1 kab | |
| ren var2 nama_kabupaten | |
| drop if kab=="" | |
| duplicates drop kab, force | |
| tostring var* , replace | |
| reshape long var, i(kab) j(date) | |
| ren var `o' | |
| tempfile data`o' | |
| save `data`o'', replace | |
| local j = `j'*0 | |
| } | |
| global data POSITIFSEMBUH POSITIFMENINGGAL POSITIFAKTIF POSITIFTOTAL | |
| foreach o in $data{ | |
| merge 1:1 date kab using `data`o'' | |
| drop _m | |
| } | |
| merge m:1 date using `tanggal' | |
| drop _m | |
| destring $data POSITIFTOTAL, replace force | |
| recode POSITIFTOTAL(0=0 "Control") (min/max=1 "Treatment"), gen(treatment) | |
| drop if tanggal ==. | |
| save data_prov`g', replace | |
| } |
Sign up for free
to join this conversation on GitHub.
Already have an account?
Sign in to comment