#42 Brecha Digital de Género con la Encuesta Nacional de Hogares en STATA - Otra forma de presentar los resultados

  

Hola a tod@s, 
en este video comparto la sintaxis para la construcción de indicadores sociales, puntualmente, la Medición de la Brecha Digital de Género utilizando la Encuesta Nacional de Hogares (ENAHO) del 2018 en STATA 15.
*********************************

*Bajamos los folders zipeados del modulo 3 (Educacion) y sumaria de la ENAHO 2018
*extraemos "manualmente" los archivos " enaho01a-2018-300" "sumaria-2018"
cd "D:\ENAHO"
use enaho01a-2018-300.dta, clear
merge m:1 conglome vivienda hogar using sumaria-2018.dta

*AREA DE RESIDENCIA
gen     area=1 if estrato<=5
replace area=2 if estrato>=6 & estrato<=8
lab def area 1 "urbano" 2 "rural"
lab val area area

*GRUPO DE EDAD
gen       gedad=1 if p208a>5  & p208a<12
replace gedad=2 if p208a>11 & p208a<19
replace gedad=3 if p208a>18 & p208a<25
replace gedad=4 if p208a>24 & p208a<41
replace gedad=5 if p208a>40 & p208a<60
replace gedad=6 if p208a>59
replace gedad=. if p208a==.
replace gedad=. if p314a==.
label define gedad 1 "6 a 11" 2 "12 a 18" 3 "19 a 24" /// 
4 "25 a 40" 5 "41 a 59" 6 "60 a mas", replace
label values gedad gedad
gen mujer=p207==2

*NIVEL EDUCATIVO
gen      gedu=1  if p301a<5
replace gedu=2 if p301a>4 & p301a<7
replace gedu=3 if p301a>6 & p301a<9
replace gedu=4 if p301a==9 | p301a==10 | p301a==11  
label define gedad 1 "Primaria" 2 "Secundaria"  /// 
3 "Sup. No universitaria" 4 "Sup. universitaria", replace 
label values gedu gedu

*Pasar los resultados a un archivo en stata y luego lo exportamos a excel
*Multiplico la variable por 100 para presentarla como porcentaje
recode p314a 2=0 1=100, gen(internet)

*El comando postfile declara los nombres de las variables y 
*el nombre de un (nuevo) archivo de Stata donde se guardarán los resultados.
*cierra cualquier archivo postfile que este abierto
cap postutil clear
postfile brecha str60(Indicador) str30(Sexo) BrechaDigital using brechadigital.dta, replace

*Nacional
qui sum internet [w=factora07] if mujer==0
post brecha ("Nacional") ("Mujer") (r(mean)) 
qui sum internet [w=factora07] if mujer==1
post brecha ("Nacional") ("Mujer") (r(mean))

*Pobreza
qui sum internet [w=factora07] if mujer==0 & pobreza<3
post brecha ("Pobre") ("Mujer") (r(mean))
qui sum internet [w=factora07] if mujer==1 & pobreza<3
post brecha ("Pobre") ("Mujer") (r(mean))
qui sum internet [w=factora07] if mujer==0 & pobreza==3
post brecha ("No Pobre") ("Mujer") (r(mean))
qui sum internet [w=factora07] if mujer==1 & pobreza==3
post brecha ("No Pobre") ("Mujer")  (r(mean))

*Area de residencia
qui sum internet [w=factora07] if area==2 & mujer==0
post brecha ("`Rural") ("Mujer") (r(mean))
qui sum internet [w=factora07] if area==2 & mujer==1
post brecha ("Rural") ("Mujer") (r(mean))
qui sum internet [w=factora07] if area==1 & mujer==0
post brecha ("Urbana") ("Mujer") (r(mean))
qui sum internet [w=factora07] if area==1 & mujer==1
post brecha ("Urbana") ("Mujer") (r(mean))

*Grupo de edad
qui sum internet [w=factora07] if gedad==1 & mujer==0
post brecha ("6 a 11") ("Mujer") (r(mean))
qui sum internet [w=factora07] if gedad==1 & mujer==1
post brecha ("6 a 11") ("Mujer") (r(mean))
qui sum internet [w=factora07] if gedad==2 & mujer==0
post brecha ("12 a 18") ("Mujer") (r(mean))
qui sum internet [w=factora07] if gedad==2 & mujer==1
post brecha ("12 a 18") ("Mujer") (r(mean))
qui sum internet [w=factora07] if gedad==3 & mujer==0
post brecha ("19 a 24") ("Mujer") (r(mean))
qui sum internet [w=factora07] if gedad==3 & mujer==1
post brecha ("19 a 24") ("Mujer") (r(mean))
qui sum internet [w=factora07] if gedad==4 & mujer==0
post brecha ("25 a 40") ("Mujer") (r(mean))
qui sum internet [w=factora07] if gedad==4 & mujer==1
post brecha ("25 a 40") ("Mujer") (r(mean))
qui sum internet [w=factora07] if gedad==5 & mujer==0
post brecha ("41 a 59") ("Mujer") (r(mean))
qui sum internet [w=factora07] if gedad==5 & mujer==1
post brecha ("41 a 59") ("Mujer") (r(mean))
qui sum internet [w=factora07] if gedad==6 & mujer==0
post brecha ("60 a mas") ("Mujer") (r(mean))
qui sum internet [w=factora07] if gedad==6 & mujer==1
post brecha ("60 a mas") ("Mujer") (r(mean))

*Educacion
qui sum internet [w=factora07] if gedu==1 & mujer==0
post brecha ("Primaria") ("Mujer") (r(mean))
qui sum internet [w=factora07] if gedu==1 & mujer==1
post brecha ("Primaria") ("Mujer") (r(mean))
qui sum internet [w=factora07] if gedu==2 & mujer==0
post brecha ("Secundaria") ("Mujer") (r(mean))
qui sum internet [w=factora07] if gedu==2 & mujer==1
post brecha ("Secundaria") ("Mujer") (r(mean))
qui sum internet [w=factora07] if gedu==3 & mujer==0
post brecha ("Sup. No universitaria") ("Mujer") (r(mean))
qui sum internet [w=factora07] if gedu==3 & mujer==1
post brecha ("Sup. No universitaria") ("Mujer") (r(mean))
qui sum internet [w=factora07] if gedu==4 & mujer==0
post brecha ("Sup. universitaria") ("Mujer") (r(mean))
qui sum internet [w=factora07] if gedu==4 & mujer==1
post brecha ("Sup. universitaria") ("Mujer") (r(mean))
postclose brecha

*Exportar a Excel
use                brechadigital.dta, clear
export excel using brechadigital.xlsx, sheet("datos") sheetreplace firstrow(variables)

*BRECHA DIGITAL DE GÉNERO