glo dir "D:\BASES DE DATOS ENCUESTA DE CALIDAD DE VIDA\POLIGONOS PARA ENTREGAR"

set excelxlsxlargefile on
forvalues i=2013/2016 {
import excel "ECV_`i'_Poligono_15122017.xlsx", firstrow clear
save ECV_`i'_Poligono_15122017, replace
}


********
* 2013 *
********

use "$dir\ECV_2013_Poligono_15122017", clear // Cargar el año a trabajar 

*NOTA: Revisar que las variables si sean las mismas para cada año
*************************************************************************************************************
* Rangos de edad
gen edad_18men=P_18<=18
gen edad_19a35=P_18>=19&P_18<=35
gen edad_36a60=P_18>=36&P_18<=60
gen edad_61mas=P_18>=61&P_18!=.

* Población analfabeta
gen analfabeta=P_35=="Si"

*Población ocupada
gen ocupado=P_86!="No aplica"

*Ingreso familiar salarial
replace P_87="" if inlist(P_87,"No aplica","No recibió","No responde","No sabe si recibió", "Si recibió pero no sabe sobre el monto")
destring P_87, replace


replace P_88="" if inlist(P_88,"No aplica","No recibió","No responde","No sabe si recibió", "Si recibió pero no sabe sobre el monto")
destring P_88, replace

replace P_89="" if inlist(P_89,"No aplica","No recibió","No responde","No sabe si recibió", "Si recibió pero no sabe sobre el monto")
destring P_89, replace

replace P_90="" if inlist(P_90,"No aplica","No recibió","No responde","No sabe si recibió", "Si recibió pero no sabe sobre el monto")
destring P_90, replace

replace P_92="" if inlist(P_92,"No aplica","No recibió","No responde","No sabe si recibió", "Si recibió pero no sabe sobre el monto")
destring P_92, replace

egen salarios=rowtotal(P_87 P_88 P_89 P_90 P_92)

egen ing_salarial=sum(salarios), by(Form Hogar)

gen smmlv_2013=589500

gen ingmen1smmlv=ing_salarial<smmlv_2013
gen ing1a2smmlv=ing_salarial>=smmlv_2013&ing_salarial<2*smmlv_2013
gen ingmas2smmlv=ing_salarial>=2*smmlv_2013&ing_salarial!=.

egen hogar_tag=tag(Form Hogar)

foreach v of varlist ingmen1smmlv ing1a2smmlv ingmas2smmlv {
replace `v'=. if hogar_tag==0
}

*count (cuente el numero de datos)

* Variable independiente
* Tasa de desempleo = desempleados/(ocupados+desempleados)
gen desem = (P_69=="Buscando trabajo")

*generando variable % de mujeres
gen mujeres=(P_15=="Mujer")

*generando variable % de afro/barrio
gen afro =(P_23=="Negro(a), mulato, afrocolombiano, afrodescendiente")

*Nivel de Educacion
gen EdUniversitaria=inlist(P_45,"Universidad (7 años)","Doctorado (5 años)","Especialización (2 años)","Maestría (3 años)")

*Definiendo % individuos cabeza de hogar
gen cabezah = P_17=="Jefe(a) del hogar"

*************************************************************************************************************

preserve
* Calculando cifras por polígono
collapse edad_18men edad_19a35 edad_36a60 edad_61mas analfabeta ocupado desem mujeres afro EdUniversitaria cabezah [aw=FEP2013], by(POLY_ID)
order POLY_ID
sort POLY_ID

foreach v of varlist desem mujeres afro EdUniversitaria cabezah {
replace `v'=round(`v'*100,.1)
}


la var desem "Tasa de desempleo"
la var mujeres "% de personas que son mujeres" 
la var afro "% de personas que son afrocolombianas"
la var EdUniversitaria "% de personas que tienen al menos título universitario"
la var cabezah "% de personas que son jefe de hogar"
la var POLY_ID "Número de Polígono"

export excel using "$dir\resultados.xlsx", sheet("2013") firstrow(varlabels) replace //Cambiar sheet para cada año
restore

collapse ingmen1smmlv ing1a2smmlv ingmas2smmlv [aw=FEVH2013], by(POLY_ID)
order POLY_ID
sort POLY_ID

foreach v of varlist ingmen1smmlv ing1a2smmlv ingmas2smmlv {
replace `v'=round(`v'*100,.1)
}

la var ingmen1smmlv "% de hogares con ingreso salarial menor a 1 SMMLV"
la var ing1a2smmlv "% de hogares con ingreso salarial entre 1 y 2 SMMLV"
la var ingmas2smmlv "% de hogares con ingreso salarial mayor a 2 SMMLV"
la var POLY_ID "Número de Polígono"

export excel using "$dir\resultados_hogares.xlsx", sheet("2013") firstrow(varlabels) replace //Cambiar sheet para cada año



********
* 2014 *
********

use "$dir\ECV_2014_Poligono_15122017", clear // Cargar el año a trabajar 

*NOTA: Revisar que las variables si sean las mismas para cada año
*************************************************************************************************************

* Rangos de edad
gen edad_18men=P_18<=18
gen edad_19a35=P_18>=19&P_18<=35
gen edad_36a60=P_18>=36&P_18<=60
gen edad_61mas=P_18>=61&P_18!=.

* Población analfabeta
gen analfabeta=P_35=="Si"

*Población ocupada
gen ocupado=P_86!="No aplica"

*Ingreso familiar salarial
replace P_87="" if inlist(P_87,"No aplica","No recibió","No responde","No sabe si recibió", "Si recibió pero no sabe sobre el monto")
destring P_87, replace


replace P_88="" if inlist(P_88,"No aplica","No recibió","No responde","No sabe si recibió", "Si recibió pero no sabe sobre el monto")
destring P_88, replace

replace P_89="" if inlist(P_89,"No aplica","No recibió","No responde","No sabe si recibió", "Si recibió pero no sabe sobre el monto")
destring P_89, replace

replace P_90="" if inlist(P_90,"No aplica","No recibió","No responde","No sabe si recibió", "Si recibió pero no sabe sobre el monto")
destring P_90, replace

replace P_92="" if inlist(P_92,"No aplica","No recibió","No responde","No sabe si recibió", "Si recibió pero no sabe sobre el monto")
destring P_92, replace

egen salarios=rowtotal(P_87 P_88 P_89 P_90 P_92)

egen ing_salarial=sum(salarios), by(Form Hogar)

gen smmlv_2014=616027

gen ingmen1smmlv=ing_salarial<smmlv_2014
gen ing1a2smmlv=ing_salarial>=smmlv_2014&ing_salarial<2*smmlv_2014
gen ingmas2smmlv=ing_salarial>=2*smmlv_2014&ing_salarial!=.

egen hogar_tag=tag(Form Hogar)

foreach v of varlist ingmen1smmlv ing1a2smmlv ingmas2smmlv {
replace `v'=. if hogar_tag==0
}



*count (cuente el numero de datos)

* Variable independiente
* Tasa de desempleo = desempleados/(ocupados+desempleados)
gen desem = (P_69=="Buscando trabajo")

*generando variable % de mujeres
gen mujeres=(P_15=="Mujer")

*generando variable % de afro/barrio
gen afro =(P_23=="Negro(a), mulato, afrocolombiano, afrodescendiente")

*Nivel de Educacion
gen EdUniversitaria=inlist(P_45,"Universidad (7 años)","Doctorado (5 años)","Especialización (2 años)","Maestría (3 años)")

*Definiendo % individuos cabeza de hogar
gen cabezah = P_17=="Jefe(a) del hogar"

*************************************************************************************************************

preserve
* Calculando cifras por polígono
collapse edad_18men edad_19a35 edad_36a60 edad_61mas analfabeta ocupado desem mujeres afro EdUniversitaria cabezah [aw=FEP2014], by(POLY_ID)
order POLY_ID
sort POLY_ID

foreach v of varlist desem mujeres afro EdUniversitaria cabezah {
replace `v'=round(`v'*100,.1)
}


la var desem "Tasa de desempleo"
la var mujeres "% de personas que son mujeres" 
la var afro "% de personas que son afrocolombianas"
la var EdUniversitaria "% de personas que tienen al menos título universitario"
la var cabezah "% de personas que son jefe de hogar"
la var POLY_ID "Número de Polígono"

export excel using "$dir\resultados.xlsx", sheet("2014") firstrow(varlabels) sheetreplace //Cambiar sheet para cada año
restore

collapse ingmen1smmlv ing1a2smmlv ingmas2smmlv [aw=FEVH2014], by(POLY_ID)
order POLY_ID
sort POLY_ID

foreach v of varlist ingmen1smmlv ing1a2smmlv ingmas2smmlv {
replace `v'=round(`v'*100,.1)
}

la var ingmen1smmlv "% de hogares con ingreso salarial menor a 1 SMMLV"
la var ing1a2smmlv "% de hogares con ingreso salarial entre 1 y 2 SMMLV"
la var ingmas2smmlv "% de hogares con ingreso salarial mayor a 2 SMMLV"
la var POLY_ID "Número de Polígono"

export excel using "$dir\resultados_hogares.xlsx", sheet("2014") firstrow(varlabels) sheetreplace //Cambiar sheet para cada año




********
* 2015 *
********

use "$dir\ECV_2015_Poligono_15122017", clear // Cargar el año a trabajar 

*NOTA: Revisar que las variables si sean las mismas para cada año
*************************************************************************************************************

* Rangos de edad
gen edad_18men=P_18<=18
gen edad_19a35=P_18>=19&P_18<=35
gen edad_36a60=P_18>=36&P_18<=60
gen edad_61mas=P_18>=61&P_18!=.

* Población analfabeta
gen analfabeta=P_35=="Si"

*Población ocupada
gen ocupado=P_86!="No aplica"

*Ingreso familiar salarial
replace P_87="" if inlist(P_87,"No aplica","No recibió","No responde","No sabe si recibió", "Si recibió pero no sabe sobre el monto")
destring P_87, replace


replace P_88="" if inlist(P_88,"No aplica","No recibió","No responde","No sabe si recibió", "Si recibió pero no sabe sobre el monto")
destring P_88, replace

replace P_89="" if inlist(P_89,"No aplica","No recibió","No responde","No sabe si recibió", "Si recibió pero no sabe sobre el monto")
destring P_89, replace

replace P_90="" if inlist(P_90,"No aplica","No recibió","No responde","No sabe si recibió", "Si recibió pero no sabe sobre el monto")
destring P_90, replace

replace P_92="" if inlist(P_92,"No aplica","No recibió","No responde","No sabe si recibió", "Si recibió pero no sabe sobre el monto")
destring P_92, replace

egen salarios=rowtotal(P_87 P_88 P_89 P_90 P_92)

egen ing_salarial=sum(salarios), by(Form Hogar)

gen smmlv_2015=644350

gen ingmen1smmlv=ing_salarial<smmlv_2015
gen ing1a2smmlv=ing_salarial>=smmlv_2015&ing_salarial<2*smmlv_2015
gen ingmas2smmlv=ing_salarial>=2*smmlv_2015&ing_salarial!=.

egen hogar_tag=tag(Form Hogar)

foreach v of varlist ingmen1smmlv ing1a2smmlv ingmas2smmlv {
replace `v'=. if hogar_tag==0
}



*count (cuente el numero de datos)

* Variable independiente
* Tasa de desempleo = desempleados/(ocupados+desempleados)
gen desem = (P_69=="Buscando trabajo")

*generando variable % de mujeres
gen mujeres=(P_15=="Mujer")

*generando variable % de afro/barrio
gen afro =(P_23=="Negro(a), mulato, afrocolombiano, afrodescendiente")

*Nivel de Educacion
gen EdUniversitaria=inlist(P_45,"Universidad (7 años)","Doctorado (5 años)","Especialización (2 años)","Maestría (3 años)")

*Definiendo % individuos cabeza de hogar
gen cabezah = P_17=="Jefe(a) del hogar"

*************************************************************************************************************

preserve
* Calculando cifras por polígono
collapse edad_18men edad_19a35 edad_36a60 edad_61mas analfabeta ocupado desem mujeres afro EdUniversitaria cabezah [aw=FEPersonas2015], by(POLY_ID)
order POLY_ID
sort POLY_ID

foreach v of varlist desem mujeres afro EdUniversitaria cabezah {
replace `v'=round(`v'*100,.1)
}


la var desem "Tasa de desempleo"
la var mujeres "% de personas que son mujeres" 
la var afro "% de personas que son afrocolombianas"
la var EdUniversitaria "% de personas que tienen al menos título universitario"
la var cabezah "% de personas que son jefe de hogar"
la var POLY_ID "Número de Polígono"

export excel using "$dir\resultados.xlsx", sheet("2015") firstrow(varlabels) sheetreplace //Cambiar sheet para cada año
restore

collapse ingmen1smmlv ing1a2smmlv ingmas2smmlv [aw=FEViviendas2015], by(POLY_ID)
order POLY_ID
sort POLY_ID

foreach v of varlist ingmen1smmlv ing1a2smmlv ingmas2smmlv {
replace `v'=round(`v'*100,.1)
}

la var ingmen1smmlv "% de hogares con ingreso salarial menor a 1 SMMLV"
la var ing1a2smmlv "% de hogares con ingreso salarial entre 1 y 2 SMMLV"
la var ingmas2smmlv "% de hogares con ingreso salarial mayor a 2 SMMLV"
la var POLY_ID "Número de Polígono"

export excel using "$dir\resultados_hogares.xlsx", sheet("2015") firstrow(varlabels) sheetreplace //Cambiar sheet para cada año




********
* 2016 *
********

use "$dir\ECV_2016_Poligono_15122017", clear // Cargar el año a trabajar 

*NOTA: Revisar que las variables si sean las mismas para cada año
*************************************************************************************************************

* Rangos de edad
gen edad_18men=P_18<=18
gen edad_19a35=P_18>=19&P_18<=35
gen edad_36a60=P_18>=36&P_18<=60
gen edad_61mas=P_18>=61&P_18!=.

* Población analfabeta
gen analfabeta=P_35=="Si"

*Población ocupada
gen ocupado=P_86!="No aplica"

*Ingreso familiar salarial
replace P_87="" if inlist(P_87,"No aplica","No recibió","No responde","No sabe si recibió", "Si recibió pero no sabe sobre el monto")
destring P_87, replace


replace P_88="" if inlist(P_88,"No aplica","No recibió","No responde","No sabe si recibió", "Si recibió pero no sabe sobre el monto")
destring P_88, replace

replace P_89="" if inlist(P_89,"No aplica","No recibió","No responde","No sabe si recibió", "Si recibió pero no sabe sobre el monto")
destring P_89, replace

replace P_90="" if inlist(P_90,"No aplica","No recibió","No responde","No sabe si recibió", "Si recibió pero no sabe sobre el monto")
destring P_90, replace

replace P_92="" if inlist(P_92,"No aplica","No recibió","No responde","No sabe si recibió", "Si recibió pero no sabe sobre el monto")
destring P_92, replace

egen salarios=rowtotal(P_87 P_88 P_89 P_90 P_92)

egen ing_salarial=sum(salarios), by(Form Hogar)

gen smmlv_2016=689454

gen ingmen1smmlv=ing_salarial<smmlv_2016
gen ing1a2smmlv=ing_salarial>=smmlv_2016&ing_salarial<2*smmlv_2016
gen ingmas2smmlv=ing_salarial>=2*smmlv_2016&ing_salarial!=.

egen hogar_tag=tag(Form Hogar)

foreach v of varlist ingmen1smmlv ing1a2smmlv ingmas2smmlv {
replace `v'=. if hogar_tag==0
}



*count (cuente el numero de datos)

* Variable independiente
* Tasa de desempleo = desempleados/(ocupados+desempleados)
gen desem = (P_69=="Buscando trabajo")

*generando variable % de mujeres
gen mujeres=(P_15=="Mujer")

*generando variable % de afro/barrio
gen afro =(P_23=="Negro(a), mulato, afrocolombiano, afrodescendiente")

*Nivel de Educacion
gen EdUniversitaria=inlist(P_45,"Universidad (7 años)","Doctorado (5 años)","Especialización (2 años)","Maestría (3 años)")

*Definiendo % individuos cabeza de hogar
gen cabezah = P_17=="Jefe(a) del hogar"

*************************************************************************************************************

preserve
* Calculando cifras por polígono
collapse edad_18men edad_19a35 edad_36a60 edad_61mas analfabeta ocupado desem mujeres afro EdUniversitaria cabezah [aw=FEP2016], by(POLY_ID)
order POLY_ID
sort POLY_ID

foreach v of varlist desem mujeres afro EdUniversitaria cabezah {
replace `v'=round(`v'*100,.1)
}


la var desem "Tasa de desempleo"
la var mujeres "% de personas que son mujeres" 
la var afro "% de personas que son afrocolombianas"
la var EdUniversitaria "% de personas que tienen al menos título universitario"
la var cabezah "% de personas que son jefe de hogar"
la var POLY_ID "Número de Polígono"

export excel using "$dir\resultados.xlsx", sheet("2016") firstrow(varlabels) sheetreplace //Cambiar sheet para cada año
restore

collapse ingmen1smmlv ing1a2smmlv ingmas2smmlv [aw=FEVH2016], by(POLY_ID)
order POLY_ID
sort POLY_ID

foreach v of varlist ingmen1smmlv ing1a2smmlv ingmas2smmlv {
replace `v'=round(`v'*100,.1)
}

la var ingmen1smmlv "% de hogares con ingreso salarial menor a 1 SMMLV"
la var ing1a2smmlv "% de hogares con ingreso salarial entre 1 y 2 SMMLV"
la var ingmas2smmlv "% de hogares con ingreso salarial mayor a 2 SMMLV"
la var POLY_ID "Número de Polígono"

export excel using "$dir\resultados_hogares.xlsx", sheet("2016") firstrow(varlabels) sheetreplace //Cambiar sheet para cada año