*Revista:				Argumentos Estudios críticos de la sociedad
*Dossier:				Las políticas sociales y ambientales del obradorismo
*Artículo: 				La desigualdad en la distribución del ingreso en México: balance y perspectivas del Plan Nacional de Desarrollo 2018-2024
*Autora: 				Claudia Sámano Robles
*Fuentes:				ENIGH 2018 y 2022
*Programa:				STATA

*ENIGH 2018: descomposici—n por fuente de ingresos*

*clear
clear matrix
set mem 500m
set more 1
set linesize 123
set type double
cap log close
cap program drop _all
cap macro drop _all
set graphics on

#delimit ;

*Abrimos la base de datos*;
*use "concentradohogar2018.dta";
log using "descriptivospercapitamensual2018.log", replace;
summ tot_integ tot_integ ing_cor ingtrab rentas transfer estim_alqu otros_ing [fw=factor] ,detail;

/*Variables mensuales*/;
generate ingcor_m = ing_cor/3;
generate ingtrab_m = ingtrab/3;
generate rentas_m = rentas/3;
generate transfer_m = transfer/3;
generate alqui_m = estim_alqu/3;
generate otros_m = otros_ing/3;

/*Variables mensual y percapita*/;
generate ingcor_mp = ingcor_m/tot_integ;
generate ingtrab_mp = ingtrab_m/tot_integ;
generate rentas_mp = rentas_m/tot_integ;
generate transfer_mp = transfer_m/tot_integ;
generate alqui_mp = alqui_m/tot_integ;
generate otros_mp = otros_m/tot_integ;

*Descomposici—n por fuente de ingreso*;
descogini ingcor_mp ingtrab_mp rentas_mp transfer_mp alqui_mp otros_mp, d(5) bar;



*ENIGH 2022: descomposici—n por fuente de ingresos*

*clear
clear matrix
set mem 500m
set more 1
set linesize 123
set type double
cap log close
cap program drop _all
cap macro drop _all
set graphics on

#delimit ;

*Abrimos la base de datos*;
*use "concentradohogar2022.dta";
log using "descriptivos2022.log", replace;
summ tot_integ tot_integ ing_cor ingtrab rentas transfer estim_alqu otros_ing [fw=factor] ,detail;

/*Variables mensuales*/;
generate ingcor_m = ing_cor/3;
generate ingtrab_m = ingtrab/3;
generate rentas_m = rentas/3;
generate transfer_m = transfer/3;
generate alqui_m = estim_alqu/3;
generate otros_m = otros_ing/3;

/*Variables mensual y percapita*/;
generate ingcor_mp = ingcor_m/tot_integ;
generate ingtrab_mp = ingtrab_m/tot_integ;
generate rentas_mp = rentas_m/tot_integ;
generate transfer_mp = transfer_m/tot_integ;
generate alqui_mp = alqui_m/tot_integ;
generate otros_mp = otros_m/tot_integ;

*Descomposici—n por fuente de ingreso*;
descogini ingcor_mp ingtrab_mp rentas_mp transfer_mp alqui_mp otros_mp, d(5) bar;
log close;