*Revista: Argumentos Estudios críticos de la sociedad *Dossier: Las políticas sociales y ambientales del obradorismo *Artículo: Análisis crítico de la política social de la Cuarta Transformación: cambios de las transferencias monetarias en México *Autor: Máximo Ernesto Jaramillo Molina *Fuentes: ENIGH 2022 y anteriores *Fecha de inicio: 26 de Julio de 2023 *Fecha de última revisión: 24 de Enero de 2025 *Programa: STATA clear all gl ruta= "~/Documents/Encuestas/ENIGH Vieja Construccion/" ***********************************2022 gl ruta22= "~/Documents/Encuestas/ENIGH Vieja Construccion/2022/bases/" use "$ruta22/ingresos.dta", clear *gen entidad=real(substr(ubica_geo,1,2)) *Identificar ingresos por programas sociales separados gen bec_benito_edubas=0 replace bec_benito_edubas=ing_tri if clave=="P101" gen bec_benito_EMS=0 replace bec_benito_EMS=ing_tri if clave=="P102" gen JCF=0 replace JCF=ing_tri if clave=="P108" gen pam=0 replace pam=ing_tri if clave=="P104" | clave=="P045" gen pdp=0 replace pdp=ing_tri if clave=="P105" gen madres_trab=0 replace madres_trab=ing_tri if clave=="P106" gen seg_vida=0 replace seg_vida=ing_tri if clave=="P107" gen otros=0 replace otros=ing_tri if clave=="P048" gen procampo=0 replace procampo=ing_tri if clave=="P043" gen JeF=0 replace JeF=ing_tri if clave=="P103" gen pensiones=0 replace pensiones=ing_tri if clave=="P032" | clave=="P033" gen remesas=0 replace remesas=ing_tri if clave=="P041" gen utilidades=0 replace utilidades=ing_tri if clave=="P008" | clave=="P015" *Sumar dichos ingresos a nivel hogar y pegarlos con base de Concentrado collapse (sum) bec_benito_edubas bec_benito_EMS JCF pam pdp madres_trab seg_vida otros procampo JeF remesas pensiones utilidades, by(folioviv foliohog) merge m:1 folioviv foliohog using "$ruta22/Concen2022.dta" drop _merge *Análisis de datos de desigualdad count *90,102 sgini ing_cor [w=factor] * 0.4127 gen tot_hogares=1 tabstat tot_hogares [w=factor], s(sum) format(%16.2fc) *Generar incidencia de programas sociales sobre ingreso corriente total gen prog_soc_inci=bene_gob/ ing_cor *Generar deciles y veintiles del hogar xtile decil = ing_cor [w=factor], nq(10) xtile veintil = ing_cor [w=factor], nq(20) xtile percentil = ing_cor [w=factor], nq(100) *xtile milil = ing_cor [w=factor], nq(1000) gen ing_cor_pc=ing_cor/tot_integ *Generar deciles y veintiles del hogar xtile decil_pc = ing_cor_pc [w=factor], nq(10) xtile veintil_pc = ing_cor_pc [w=factor], nq(20) xtile percentil_pc = ing_cor_pc [w=factor], nq(100) *xtile milil_pc = ing_cor_pc [w=factor], nq(1000) tabstat tot_integ [w=factor], by(decil_pc) s(sum) tabstat tot_integ [w=factor], by(decil_pc) s(mean) gen ing_cor_sin_bene_gob= ing_cor - bene_gob xtile decil_sin_bene_gob = ing_cor_sin_bene_gob [w=factor], nq(10) xtile veintil_sin_bene_gob = ing_cor_sin_bene_gob [w=factor], nq(20) *xtile milil_sin_bene_gob = ing_cor_sin_bene_gob [w=factor], nq(1000) *Generar deciles y veintiles del poblacion gen factor_pob=factor*tot_integ xtile decil_pc_pob = ing_cor_pc [w=factor_pob], nq(10) xtile veintil_pc_pob = ing_cor_pc [w=factor_pob], nq(20) xtile percentil_pc_pob = ing_cor_pc [w=factor_pob], nq(100) tabstat tot_integ [w=factor], by(decil_pc_pob) s(sum) tabstat ing_cor_pc [w=factor], by(decil_pc_pob) s(mean median min max) format(%16.2fc) tabstat ing_cor_pc [w=factor], by(percentil_pc_pob) s(mean median min max) format(%16.2fc) gen ing_cor_sin_bene_gob_pc = ing_cor_sin_bene_gob/tot_integ xtile decil_sin_bene_gob_pc = ing_cor_sin_bene_gob_pc [w=factor], nq(10) xtile veintil_sin_bene_gobb_pc = ing_cor_sin_bene_gob_pc [w=factor], nq(20) xtile decil_sin_bene_gob_pc_pob = ing_cor_sin_bene_gob_pc [w=factor_pob], nq(10) xtile veintil_sin_bene_gob_pc_pob = ing_cor_sin_bene_gob_pc [w=factor_pob], nq(20) recode pensiones remesas utilidades (.=0) *Tabular ingreso promedio ing_cor prog_soc ingtrab utilidades remesas por deciles svyset upm, strata(est_dis) weight(factor) vce(linearized) singleunit(missing) svy linearized : mean ing_cor, over(decil_pc) tabstat ing_cor bene_gob ingtrab utilidades remesas [w=factor], by(decil_pc) tabstat ing_cor bene_gob ingtrab utilidades remesas [w=factor], by(percentil_pc) tabstat ing_cor bene_gob ingtrab utilidades remesas [w=factor], s(sum) by(decil_pc) format(%16.2fc) sgini ing_cor_pc [w=factor] , sortvar(ing_cor_pc) sgini bene_gob [w=factor] , sortvar(ing_cor_pc) sgini ingtrab [w=factor] , sortvar(ing_cor_pc) sgini remesas [w=factor] , sortvar(ing_cor_pc) sgini utilidades [w=factor] , sortvar(ing_cor_pc) *Tabular ingreso promedio ing_cor prog_soc ingtrab utilidades remesas sólo para beneficiarios (sept 2024) gen bene_gob_pc = bene_gob/tot_integ tabstat ing_cor bene_gob bene_gob_pc ingtrab utilidades remesas [w=factor] if bene_gob>0, by(decil_pc) *Tabular ingreso promedio ing_cor prog_soc ingtrab utilidades remesas por deciles tabstat ing_cor bene_gob ingtrab utilidades remesas [w=factor], by(decil_pc) tabstat ing_cor bene_gob ingtrab utilidades remesas [w=factor], s(sum) by(decil_pc) format(%16.2fc) *Tabular incidencia promedio, ingresos promedio por Prog. Soc (PS) y Ing. Corriente por deciles tabstat prog_soc_inci bene_gob ing_cor ing_cor_pc [w=factor], by(decil_pc) *Generar variable que de cuenta del número de hogares que reciben PS gen prog_soc_count=0 replace prog_soc_count=1 if bene_gob>0 *Tabular hogares que reciben programas sociales tabstat prog_soc_count [w=factor] tabstat prog_soc_count [w=factor], by(entidad) tabstat prog_soc_count [w=factor], by(decil) tabstat prog_soc_count [w=factor], by(veintil) tabstat prog_soc_count [w=factor], by(percentil) tabstat prog_soc_count [w=factor], by(decil_pc) tabstat prog_soc_count [w=factor], by(veintil_pc) tabstat prog_soc_count [w=factor], by(decil_sin_bene_gob_pc_pob) tabstat prog_soc_count [w=factor], by(veintil_sin_bene_gob_pc_pob) *Tabular incidencia de programas sociales sobre el ingreso para los beneficiarios tabstat prog_soc_inci [w=factor] if bene_gob>0, by(decil_pc) *Sustituir valores perdidos con Ceros para tabular cobertura de PS recode bec_benito_edubas bec_benito_EMS JCF pam pdp madres_trab seg_vida otros JeF procampo remesas pensiones (.=0) *Generar variables que den cuenta del número de hogares que reciben distintos PS gen bec_benito_edubas_count=0 replace bec_benito_edubas_count=1 if bec_benito_edubas>0 gen bec_benito_EMS_count=0 replace bec_benito_EMS_count=1 if bec_benito_EMS>0 gen JCF_count=0 replace JCF_count=1 if JCF>0 gen pam_count=0 replace pam_count=1 if pam>0 gen pdp_count=0 replace pdp_count=1 if pdp>0 gen madres_trab_count=0 replace madres_trab_count=1 if madres_trab>0 gen seg_vida_count=0 replace seg_vida_count=1 if seg_vida>0 gen otros_count=0 replace otros_count=1 if otros>0 gen procampo_count=0 replace procampo_count=1 if procampo>0 gen JeF_count=0 replace JeF_count=1 if JeF>0 gen remesas_count=0 replace remesas_count=1 if remesas>0 gen pensiones_count=0 replace pensiones_count=1 if pensiones>0 gen otros2_count=0 replace otros2_count=1 if pdp>0 | madres_trab>0 | seg_vida>0 | otros>0 | JeF>0 | procampo>0 *Tabular cobertura de programas sociales sobre total de hogares por decil tabstat bec_benito_edubas_count pam_count prog_soc_count [w=factor], by(decil_pc) tabstat bec_benito_edubas_count bec_benito_EMS_count JCF_count pam_count otros2_count prog_soc_count [w=factor], by(decil_pc) tabstat JeF_count pdp_count madres_trab_count seg_vida_count otros_count procampo_count [w=factor], by(decil_pc) tabstat pensiones_count remesas_count [w=factor], by(decil_pc) *Tabular monto transferido por programas sociales a hogares beneficiarios tabstat bec_benito_edubas [w=factor] if bec_benito_edubas>0 , by(decil_pc) tabstat bec_benito_EMS [w=factor] if bec_benito_EMS>0 , by(decil_pc) tabstat JCF [w=factor] if JCF>0 , by(decil_pc) tabstat pam [w=factor] if pam>0 , by(decil_pc) tabstat remesas [w=factor] if remesas>0 , by(decil_pc) tabstat pensiones [w=factor] if pensiones>0 , by(decil_pc) *Tabular monto transferido por totalidad de programas sociales a hogares beneficiarios tabstat bene_gob [w=factor] if bene_gob>0 , by(decil_pc) *Tabular masa transferida por totalidad de programas sociales a hogares beneficiarios tabstat bene_gob [w=factor] if bene_gob>0 , by(decil_pc) s(sum) format(%22.2fc) tabstat bene_gob [w=factor] , by(decil_pc) s(sum) format(%22.2fc) sgini bene_gob [w=factor] , sortvar(ing_cor_pc) *Tabular masa transferida por totalidad de programas sociales a hogares beneficiarios tabstat bene_gob [w=factor] , by(decil_pc) s(sum) format(%22.2fc) tabstat bec_benito_edubas [w=factor] , by(decil_pc) s(sum) format(%22.2fc) tabstat bec_benito_EMS [w=factor] , by(decil_pc) s(sum) format(%22.2fc) tabstat JCF [w=factor] , by(decil_pc) s(sum) format(%22.2fc) tabstat pam [w=factor] , by(decil_pc) s(sum) format(%22.2fc) tabstat pdp [w=factor] , by(decil_pc) s(sum) format(%22.2fc) tabstat madres_trab [w=factor] , by(decil_pc) s(sum) format(%22.2fc) tabstat seg_vida [w=factor] , by(decil_pc) s(sum) format(%22.2fc) tabstat otros [w=factor] , by(decil_pc) s(sum) format(%22.2fc) tabstat procampo [w=factor] , by(decil_pc) s(sum) format(%22.2fc) tabstat JeF [w=factor] , by(decil_pc) s(sum) format(%22.2fc) tabstat pensiones [w=factor] , by(decil_pc) s(sum) format(%22.2fc) tabstat remesas [w=factor] , by(decil_pc) s(sum) format(%22.2fc) ************************************ ************************************ ***********************************2020 ************************************ gl ruta20= "~/Documents/Encuestas/ENIGH Vieja Construccion/2020/bases/" use "$ruta20/ingresos.dta", clear *gen entidad=real(substr(ubica_geo,1,2)) *Identificar ingresos por programas sociales separados gen bec_benito_edubas=0 replace bec_benito_edubas=ing_tri if clave=="P101" gen bec_benito_EMS=0 replace bec_benito_EMS=ing_tri if clave=="P102" gen JCF=0 replace JCF=ing_tri if clave=="P108" gen pam=0 replace pam=ing_tri if clave=="P104" | clave=="P045" gen pdp=0 replace pdp=ing_tri if clave=="P105" gen madres_trab=0 replace madres_trab=ing_tri if clave=="P106" gen seg_vida=0 replace seg_vida=ing_tri if clave=="P107" gen otros=0 replace otros=ing_tri if clave=="P048" gen procampo=0 replace procampo=ing_tri if clave=="P043" gen JeF=0 replace JeF=ing_tri if clave=="P103" gen pensiones=0 replace pensiones=ing_tri if clave=="P032" | clave=="P033" gen remesas=0 replace remesas=ing_tri if clave=="P041" gen utilidades=0 replace utilidades=ing_tri if clave=="P008" | clave=="P015" *Sumar dichos ingresos a nivel hogar y pegarlos con base de Concentrado collapse (sum) bec_benito_edubas bec_benito_EMS JCF pam pdp madres_trab seg_vida otros procampo JeF remesas pensiones utilidades, by(folioviv foliohog) merge m:1 folioviv foliohog using "$ruta20/Concen2020.dta" drop _merge *Análisis de datos de desigualdad count *89,006 sgini ing_cor [w=factor] * 0.4260 gen tot_hogares=1 tabstat tot_hogares [w=factor], s(sum) format(%16.2fc) *Generar incidencia de programas sociales sobre ingreso corriente total gen prog_soc_inci=bene_gob/ ing_cor *Generar deciles y veintiles del hogar xtile decil = ing_cor [w=factor], nq(10) xtile veintil = ing_cor [w=factor], nq(20) xtile percentil = ing_cor [w=factor], nq(100) xtile milil = ing_cor [w=factor], nq(1000) gen ing_cor_pc=ing_cor/tot_integ *Generar deciles y veintiles del hogar xtile decil_pc = ing_cor_pc [w=factor], nq(10) xtile veintil_pc = ing_cor_pc [w=factor], nq(20) xtile percentil_pc = ing_cor_pc [w=factor], nq(100) tabstat tot_integ [w=factor], by(decil_pc) s(sum) gen ing_cor_sin_bene_gob= ing_cor - bene_gob xtile decil_sin_bene_gob = ing_cor_sin_bene_gob [w=factor], nq(10) xtile veintil_sin_bene_gob = ing_cor_sin_bene_gob [w=factor], nq(20) xtile milil_sin_bene_gob = ing_cor_sin_bene_gob [w=factor], nq(1000) *Generar deciles y veintiles del poblacion gen factor_pob=factor*tot_integ xtile decil_pc_pob = ing_cor_pc [w=factor_pob], nq(10) xtile veintil_pc_pob = ing_cor_pc [w=factor_pob], nq(20) xtile percentil_pc_pob = ing_cor_pc [w=factor_pob], nq(100) tabstat tot_integ [w=factor], by(decil_pc_pob) s(sum) tabstat ing_cor_pc [w=factor], by(decil_pc_pob) s(mean median min max) format(%16.2fc) tabstat ing_cor_pc [w=factor], by(percentil_pc_pob) s(mean median min max) format(%16.2fc) gen ing_cor_sin_bene_gob_pc = ing_cor_sin_bene_gob/tot_integ xtile decil_sin_bene_gob_pc = ing_cor_sin_bene_gob_pc [w=factor], nq(10) xtile veintil_sin_bene_gobb_pc = ing_cor_sin_bene_gob_pc [w=factor], nq(20) *CDMX *tabstat ing_cor_pc [w=factor] if entidad==9, by(decil_pc_pob) s(mean median min max) xtile decil_sin_bene_gob_pc_pob = ing_cor_sin_bene_gob_pc [w=factor_pob], nq(10) xtile veintil_sin_bene_gob_pc_pob = ing_cor_sin_bene_gob_pc [w=factor_pob], nq(20) *LPs gen ict_LP = ing_cor_pc / LP xtile decil_LP = ict_LP [w=factor], nq(10) xtile veintil_LP = ict_LP [w=factor], nq(20) xtile percentil_LP = ict_LP [w=factor], nq(100) recode pensiones remesas utilidades (.=0) *Tabular ingreso promedio ing_cor prog_soc ingtrab utilidades remesas por deciles svyset upm, strata(est_dis) weight(factor) vce(linearized) singleunit(missing) svy linearized : mean ing_cor, over(decil_pc) tabstat ing_cor bene_gob ingtrab utilidades remesas [w=factor], by(decil_pc) tabstat ing_cor bene_gob ingtrab utilidades remesas [w=factor], by(percentil_pc) tabstat ing_cor bene_gob ingtrab utilidades remesas [w=factor], s(sum) by(decil_pc) format(%16.2fc) sgini ing_cor_pc [w=factor] , sortvar(ing_cor_pc) sgini bene_gob [w=factor] , sortvar(ing_cor_pc) sgini ingtrab [w=factor] , sortvar(ing_cor_pc) sgini remesas [w=factor] , sortvar(ing_cor_pc) sgini utilidades [w=factor] , sortvar(ing_cor_pc) *Tabular ingreso promedio ing_cor prog_soc ingtrab utilidades remesas sólo para beneficiarios (sept 2024) gen bene_gob_pc = bene_gob/tot_integ tabstat ing_cor bene_gob bene_gob_pc ingtrab utilidades remesas [w=factor] if bene_gob>0, by(decil_pc) *Tabular ingreso promedio ing_cor prog_soc ingtrab utilidades remesas por deciles tabstat ing_cor bene_gob ingtrab utilidades remesas [w=factor], by(decil_pc) tabstat ing_cor bene_gob ingtrab utilidades remesas [w=factor], s(sum) by(decil_pc) format(%16.2fc) *Tabular incidencia promedio, ingresos promedio por Prog. Soc (PS) y Ing. Corriente por deciles tabstat prog_soc_inci bene_gob ing_cor ing_cor_pc [w=factor], by(decil_LP) *Generar variable que de cuenta del número de hogares que reciben PS gen prog_soc_count=0 replace prog_soc_count=1 if bene_gob>0 *Tabular hogares que reciben programas sociales tabstat prog_soc_count [w=factor], by(entidad) tabstat prog_soc_count [w=factor], by(decil) tabstat prog_soc_count [w=factor], by(veintil) tabstat prog_soc_count [w=factor], by(percentil) tabstat prog_soc_count [w=factor], by(decil_pc) tabstat prog_soc_count [w=factor], by(veintil_pc) tabstat prog_soc_count [w=factor], by(decil_sin_bene_gob_pc_pob) tabstat prog_soc_count [w=factor], by(veintil_sin_bene_gob_pc_pob) *tabstat prog_soc_count [w=factor], by(decil_LP) *tabstat prog_soc_count [w=factor], by(veintil_LP) *Proxy de población en pobreza tabstat prog_soc_count [w=factor] if decil_pc<6 *Tabular incidencia de programas sociales sobre el ingreso para los beneficiarios tabstat prog_soc_inci [w=factor] if bene_gob>0, by(decil_pc) *Sustituir valores perdidos con Ceros para tabular cobertura de PS recode bec_benito_edubas bec_benito_EMS JCF pam pdp madres_trab seg_vida otros JeF procampo remesas pensiones (.=0) *Generar variables que den cuenta del número de hogares que reciben distintos PS gen bec_benito_edubas_count=0 replace bec_benito_edubas_count=1 if bec_benito_edubas>0 gen bec_benito_EMS_count=0 replace bec_benito_EMS_count=1 if bec_benito_EMS>0 gen JCF_count=0 replace JCF_count=1 if JCF>0 gen pam_count=0 replace pam_count=1 if pam>0 gen pdp_count=0 replace pdp_count=1 if pdp>0 gen madres_trab_count=0 replace madres_trab_count=1 if madres_trab>0 gen seg_vida_count=0 replace seg_vida_count=1 if seg_vida>0 gen otros_count=0 replace otros_count=1 if otros>0 gen procampo_count=0 replace procampo_count=1 if procampo>0 gen JeF_count=0 replace JeF_count=1 if JeF>0 gen remesas_count=0 replace remesas_count=1 if remesas>0 gen pensiones_count=0 replace pensiones_count=1 if pensiones>0 gen otros2_count=0 replace otros2_count=1 if pdp>0 | madres_trab>0 | seg_vida>0 | otros>0 | JeF>0 | procampo>0 *Tabular cobertura de programas sociales sobre total de hogares por decil tabstat bec_benito_edubas_count pam_count prog_soc_count [w=factor], by(decil_pc) tabstat bec_benito_edubas_count bec_benito_EMS_count JCF_count pam_count otros2_count prog_soc_count [w=factor], by(decil_pc) tabstat JeF_count pdp_count madres_trab_count seg_vida_count otros_count procampo_count [w=factor], by(decil_pc) tabstat pensiones_count remesas_count [w=factor], by(decil_pc) *Tabular monto transferido por programas sociales a hogares beneficiarios tabstat bec_benito_edubas [w=factor] if bec_benito_edubas>0 , by(decil_pc) tabstat bec_benito_EMS [w=factor] if bec_benito_EMS>0 , by(decil_pc) tabstat JCF [w=factor] if JCF>0 , by(decil_pc) tabstat pam [w=factor] if pam>0 , by(decil_pc) tabstat remesas [w=factor] if remesas>0 , by(decil_pc) tabstat pensiones [w=factor] if pensiones>0 , by(decil_pc) *Tabular monto transferido por totalidad de programas sociales a hogares beneficiarios tabstat bene_gob [w=factor] if bene_gob>0 , by(decil_pc) *Tabular masa transferida por totalidad de programas sociales a hogares beneficiarios tabstat bene_gob [w=factor] if bene_gob>0 , by(decil_pc) s(sum) format(%22.2fc) tabstat bene_gob [w=factor] , by(decil_pc) s(sum) format(%22.2fc) sgini bene_gob [w=factor] , sortvar(ing_cor_pc) *Tabular masa transferida por totalidad de programas sociales a hogares beneficiarios tabstat bene_gob [w=factor] , by(decil_pc) s(sum) format(%22.2fc) tabstat bec_benito_edubas [w=factor] , by(decil_pc) s(sum) format(%22.2fc) tabstat bec_benito_EMS [w=factor] , by(decil_pc) s(sum) format(%22.2fc) tabstat JCF [w=factor] , by(decil_pc) s(sum) format(%22.2fc) tabstat pam [w=factor] , by(decil_pc) s(sum) format(%22.2fc) tabstat pdp [w=factor] , by(decil_pc) s(sum) format(%22.2fc) tabstat madres_trab [w=factor] , by(decil_pc) s(sum) format(%22.2fc) tabstat seg_vida [w=factor] , by(decil_pc) s(sum) format(%22.2fc) tabstat otros [w=factor] , by(decil_pc) s(sum) format(%22.2fc) tabstat procampo [w=factor] , by(decil_pc) s(sum) format(%22.2fc) tabstat JeF [w=factor] , by(decil_pc) s(sum) format(%22.2fc) tabstat pensiones [w=factor] , by(decil_pc) s(sum) format(%22.2fc) tabstat remesas [w=factor] , by(decil_pc) s(sum) format(%22.2fc) ************************************2018 *Se repite metodología del año 2020. gl ruta18= "$ruta/2018/bases" use "$ruta18/ingresos.dta", clear *prospera gen prospera=0 replace prospera=ing_tri if clave=="P042" gen pam=0 replace pam=ing_tri if clave=="P044" | clave=="P045" gen procampo=0 replace procampo=ing_tri if clave=="P043" gen pensiones=0 replace pensiones=ing_tri if clave=="P032" | clave=="P033" gen remesas=0 replace remesas=ing_tri if clave=="P041" gen utilidades=0 replace utilidades=ing_tri if clave=="P008" | clave=="P015" collapse (sum) prospera pam pensiones procampo remesas utilidades, by(folioviv foliohog) merge m:1 folioviv foliohog using "$ruta18/Concen2018.dta" drop _merge *Se substrae municipio y entidad y se genera una variable para cada una gen municipio=real(substr(ubica_geo,3,3)) gen entidad=real(substr(ubica_geo,1,2)) *Etiquetar las entidades label define ent 1 "Aguascalientes" 2 "Baja California" 3 "Baja California Sur" 4 "Campeche" /// 5 "Coahuila" 6 "Colima" 7 "Chiapas" 8 "Chihuahua" 9 "Ciudad de México" 10 "Durango" /// 11 "Guanajuato" 12 "Guerrero" 13 "Hidalgo" 14 "Jalisco" 15 "México" /// 16 "Michoacán" 17 "Morelos" 18 "Nayarit" 19 "Nuevo León" 20 "Oaxaca" /// 21 "Puebla" 22 "Querétaro" 23 "Quintana Roo" 24 "San Luis Potosí" 25 "Sinaloa" /// 26 "Sonora" 27 "Tabasco" 28 "Tamaulipas" 29 "Tlaxcala" 30 "Veracruz" 31 "Yucatan"32 "Zacatecas" label value entidad ent count *74,647 sgini ing_cor [w=factor] gen tot_hogares=1 tabstat tot_hogares [w=factor], s(sum) format(%16.2fc) gen prog_soc_inci=bene_gob/ ing_cor *Generar deciles y veintiles del hogar xtile decil = ing_cor [w=factor], nq(10) xtile veintil = ing_cor [w=factor], nq(20) xtile percentil = ing_cor [w=factor], nq(100) *xtile milil = ing_cor [w=factor], nq(1000) gen ing_cor_pc=ing_cor/tot_integ *Generar deciles y veintiles del hogar xtile decil_pc = ing_cor_pc [w=factor], nq(10) xtile veintil_pc = ing_cor_pc [w=factor], nq(20) xtile percentil_pc = ing_cor_pc [w=factor], nq(100) tabstat tot_integ [w=factor], by(decil_pc) s(sum) gen ing_cor_sin_bene_gob= ing_cor - bene_gob xtile decil_sin_bene_gob = ing_cor_sin_bene_gob [w=factor], nq(10) xtile veintil_sin_bene_gob = ing_cor_sin_bene_gob [w=factor], nq(20) *xtile milil_sin_bene_gob = ing_cor_sin_bene_gob [w=factor], nq(1000) gen factor_pob=factor*tot_integ gen ing_cor_sin_bene_gob_pc = ing_cor_sin_bene_gob/tot_integ xtile decil_sin_bene_gob_pc_pob = ing_cor_sin_bene_gob_pc [w=factor_pob], nq(10) xtile veintil_sin_bene_gob_pc_pob = ing_cor_sin_bene_gob_pc [w=factor_pob], nq(20) gen prog_soc_count=0 replace prog_soc_count=1 if bene_gob>0 tabstat prog_soc_count [w=factor], by(decil) tabstat prog_soc_count [w=factor], by(veintil) tabstat prog_soc_count [w=factor], by(entidad) tabstat prog_soc_count [w=factor], by(decil_sin_bene_gob_pc_pob) tabstat prog_soc_count [w=factor], by(veintil_sin_bene_gob_pc_pob) *Generar deciles y veintiles del poblacion *gen factor_pob=factor*tot_integ xtile decil_pc_pob = ing_cor_pc [w=factor_pob], nq(10) xtile veintil_pc_pob = ing_cor_pc [w=factor_pob], nq(20) xtile percentil_pc_pob = ing_cor_pc [w=factor_pob], nq(100) tabstat tot_integ [w=factor], by(decil_pc_pob) s(sum) tabstat ing_cor_pc [w=factor], by(decil_pc_pob) s(mean median min max) format(%16.2fc) tabstat ing_cor_pc [w=factor], by(percentil_pc_pob) s(mean median min max) format(%16.2fc) gen ing_cor_sin_bene_gob_pc = ing_cor_sin_bene_gob/tot_integ xtile decil_sin_bene_gob_pc = ing_cor_sin_bene_gob_pc [w=factor], nq(10) xtile veintil_sin_bene_gobb_pc = ing_cor_sin_bene_gob_pc [w=factor], nq(20) *Tabular ingreso promedio ing_cor prog_soc ingtrab utilidades remesas sólo para beneficiarios (sept 2024) gen bene_gob_pc = bene_gob/tot_integ tabstat ing_cor bene_gob bene_gob_pc ingtrab utilidades remesas [w=factor] if bene_gob>0, by(decil_pc) tabstat bene_gob [w=factor] , by(decil_pc) *564 tabstat prog_soc_count [w=factor], by(decil_pc) tabstat prog_soc_count [w=factor], by(veintil_pc) *Proxy de población en pobreza tabstat prog_soc_count [w=factor] if decil_pc<6 tabstat prog_soc_inci [w=factor] if bene_gob>0, by(decil_pc) recode bene_gob prospera procampo pam pensiones remesas utilidades (.=0) *Tabular ingreso promedio ing_cor prog_soc ingtrab utilidades remesas por deciles tabstat ing_cor bene_gob ingtrab utilidades remesas [w=factor], by(decil_pc) tabstat ing_cor bene_gob ingtrab utilidades remesas [w=factor], by(percentil_pc) tabstat ing_cor bene_gob ingtrab utilidades remesas [w=factor], s(sum) by(decil_pc) format(%16.2fc) sgini ing_cor_pc [w=factor] , sortvar(ing_cor_pc) sgini bene_gob [w=factor] , sortvar(ing_cor_pc) sgini bene_gob prospera pam [w=factor] , sortvar(ing_cor_pc) sgini prospera [w=factor] , sortvar(ing_cor_pc) sgini ingtrab [w=factor] , sortvar(ing_cor_pc) sgini remesas [w=factor] , sortvar(ing_cor_pc) sgini utilidades [w=factor] , sortvar(ing_cor_pc) gen pros_count=0 replace pros_count=1 if prospera>0 gen pam_count=0 replace pam_count=1 if pam>0 gen remesas_count=0 replace remesas_count=1 if remesas>0 gen pensiones_count=0 replace pensiones_count=1 if pensiones>0 tabstat pros_count pam_count prog_soc_count pensiones_count remesas_count[w=factor], by(decil_pc) tabstat prospera [w=factor] if prospera>0 , by(decil_pc) tabstat pam [w=factor] if pam>0 , by(decil_pc) tabstat bene_gob [w=factor] if bene_gob>0 , by(decil_pc) tabstat tot_integ [w=factor] if prospera>0 , by(decil_pc) *Tabular masa transferida por totalidad de programas sociales a hogares beneficiarios tabstat bene_gob [w=factor] if bene_gob>0 , by(decil_pc) s(sum) format(%22.2fc) tabstat bene_gob [w=factor] , by(decil_pc) s(sum) format(%22.2fc) *Tabular masa transferida por totalidad de programas sociales a hogares beneficiarios tabstat bene_gob [w=factor] , by(decil_pc) s(sum) format(%22.2fc) tabstat pam [w=factor] , by(decil_pc) s(sum) format(%22.2fc) tabstat prospera [w=factor] , by(decil_pc) s(sum) format(%22.2fc) recode bene_gob (0=.) sgini bene_gob [w=factor] sgini prospera pam bene_gob [w=factor], sortvar(ing_cor) sgini prospera if prospera>0 [w=factor], sortvar(ing_cor) sgini ing_cor [w=factor], sortvar(ing_cor) ************************************2016 *Se repite metodología del año 2020. clear gl ruta16= "$ruta/2016/bases" use "$ruta16/ingresos.dta", clear *prospera gen prospera=0 replace prospera=ing_tri if clave=="P042" gen pam=0 replace pam=ing_tri if clave=="P044" | clave=="P045" gen procampo=0 replace procampo=ing_tri if clave=="P043" gen pensiones=0 replace pensiones=ing_tri if clave=="P032" | clave=="P033" gen remesas=0 replace remesas=ing_tri if clave=="P041" gen utilidades=0 replace utilidades=ing_tri if clave=="P008" | clave=="P015" collapse (sum) prospera pam pensiones procampo remesas utilidades, by(folioviv foliohog) merge m:1 folioviv foliohog using "$ruta16/Concen16.dta" drop _merge *Se substrae municipio y entidad y se genera una variable para cada una gen municipio=real(substr(ubica_geo,3,3)) gen entidad=real(substr(ubica_geo,1,2)) *Etiquetar las entidades label define ent 1 "Aguascalientes" 2 "Baja California" 3 "Baja California Sur" 4 "Campeche" /// 5 "Coahuila" 6 "Colima" 7 "Chiapas" 8 "Chihuahua" 9 "Ciudad de México" 10 "Durango" /// 11 "Guanajuato" 12 "Guerrero" 13 "Hidalgo" 14 "Jalisco" 15 "México" /// 16 "Michoacán" 17 "Morelos" 18 "Nayarit" 19 "Nuevo León" 20 "Oaxaca" /// 21 "Puebla" 22 "Querétaro" 23 "Quintana Roo" 24 "San Luis Potosí" 25 "Sinaloa" /// 26 "Sonora" 27 "Tabasco" 28 "Tamaulipas" 29 "Tlaxcala" 30 "Veracruz" 31 "Yucatan"32 "Zacatecas" label value entidad ent count *74,647 sgini ing_cor [w=factor] * 0.4634 gen prog_soc_inci=bene_gob/ ing_cor *Del hogar xtile decil = ing_cor [w=factor], nq(10) tabstat prog_soc_inci bene_gob ing_cor [w=factor], by(decil) gen prog_soc_count=0 replace prog_soc_count=1 if bene_gob>0 gen ing_cor_pc=ing_cor/tot_integ *Generar deciles y veintiles del hogar xtile decil_pc = ing_cor_pc [w=factor], nq(10) xtile veintil_pc = ing_cor_pc [w=factor], nq(20) tabstat ing_cor [w=factor], by(veintil_pc) gen ing_cor_sin_bene_gob= ing_cor - bene_gob xtile decil_sin_bene_gob = ing_cor_sin_bene_gob [w=factor], nq(10) xtile veintil_sin_bene_gob = ing_cor_sin_bene_gob [w=factor], nq(20) *Generar deciles y veintiles del poblacion gen factor_pob=factor*tot_integ xtile decil_pc_pob = ing_cor_pc [w=factor_pob], nq(10) xtile veintil_pc_pob = ing_cor_pc [w=factor_pob], nq(20) xtile percentil_pc_pob = ing_cor_pc [w=factor_pob], nq(100) tabstat tot_integ [w=factor], by(decil_pc_pob) s(sum) tabstat ing_cor_pc [w=factor], by(decil_pc_pob) s(mean median min max) format(%16.2fc) tabstat ing_cor_pc [w=factor], by(percentil_pc_pob) s(mean median min max) format(%16.2fc) gen ing_cor_sin_bene_gob_pc = ing_cor_sin_bene_gob/tot_integ xtile decil_sin_bene_gob_pc = ing_cor_sin_bene_gob_pc [w=factor], nq(10) xtile veintil_sin_bene_gobb_pc = ing_cor_sin_bene_gob_pc [w=factor], nq(20) xtile decil_sin_bene_gob_pc_pob = ing_cor_sin_bene_gob_pc [w=factor_pob], nq(10) xtile veintil_sin_bene_gob_pc_pob = ing_cor_sin_bene_gob_pc [w=factor_pob], nq(20) tabstat prog_soc_count [w=factor], by(decil_pc) tabstat prog_soc_count [w=factor], by(veintil_pc) tabstat prog_soc_count [w=factor], by(decil_sin_bene_gob_pc_pob) tabstat prog_soc_count [w=factor], by(veintil_sin_bene_gob_pc_pob) *Proxy de población en pobreza tabstat prog_soc_count [w=factor] if decil_pc<6 tabstat prog_soc_count [w=factor], by(decil) xtile veintil = ing_cor [w=factor], nq(20) tabstat prog_soc_count [w=factor], by(veintil) tabstat prog_soc_inci [w=factor] if bene_gob>0, by(decil) tabstat bene_gob [w=factor] if bene_gob>0 , by(decil) tabstat bene_gob [w=factor] if bene_gob>0 , by(decil) s(sum) format(%22.2fc) recode bene_gob (0=.) sgini bene_gob [w=factor]