# Clase 4. Práctica guiada

### Clase 4. Tidyverse - Pobreza

#### 27/8/2019

# Ejercicios vinculados a la estimacion de pobreza

Levantar la base del 1t de 2017

    library(readxl)
    library(tidyverse)
    ADEQUI <- read_excel("../Fuentes/ADEQUI.xlsx")
    Regiones <- read_excel("../Fuentes/Regiones.xlsx")
    base <- read.table("../Fuentes/usu_individual_t117.txt",header = T,sep = ";",dec = ",")

Estimar cuantas personas habitan en hogares con ingresos totales menores a $15.000

    base %>%
      summarise(Casos_Ponderados =sum(PONDIH[ITF<15000]))

# Adultos equivalentes

Construir en la base una variable que identifique el total de personas y de adultos equivalentes presentes en cada hogar (Usar el excel de la carpeta Fuentes que contiene la definición de los adultos eq.)

    base_con_identificador <- base %>%
      left_join(ADEQUI,by = c("CH04", "CH06")) %>%
      group_by(CODUSU,NRO_HOGAR) %>%
      mutate(Personas_en_hogar = n(),
             adequi_en_hogar = sum(adequi))

A partir del punto anterior: - ¿Cuantas personas habitan en hogares de 7 o más integrantes?

    base_con_identificador %>%
      ungroup() %>%
      filter(Personas_en_hogar>=7) %>%
      summarise(PERSONAS = sum(PONDERA))

- ¿Cuantos hogares tienen más de 7 o más integrantes?
- Construir una variable que exprese el Ingreso Total Familiar (ITF) per capita de cada hogar
- Construir una variable que exprese el Ingreso Total Familiar (ITF) por adulto equivalente
- Calcular el ITF per capita promedio por Región
- Calcular el ITF por adulto equivalente promedio por Region

    base_a_nivel_hogar <- base_con_identificador %>%
      group_by(CODUSU,NRO_HOGAR) %>%
      summarise(PONDIH = unique(PONDIH),
                ITF = unique(ITF),
                REGION = unique(REGION),
                Personas = n(),
                adequi_en_hogar = sum(adequi))
    base_a_nivel_hogar %>%
      filter(Personas>=7) %>%
      ungroup() %>%
      summarise(HOGARES = sum(PONDIH))

    base_a_nivel_hogar %>%
      mutate(ITF.pc = ITF/Personas,
             ITF.ae = ITF/adequi_en_hogar) %>%
      group_by(REGION) %>%
      summarise(ITF.pc.promedio = weighted.mean(ITF.pc,PONDIH),
                ITF.ae.promedio = weighted.mean(ITF.ae,PONDIH)) %>%
      left_join(Regiones)

    Joining, by = "REGION"

LS0tDQp0aXRsZTogIkNsYXNlIDQuIFByw6FjdGljYSBndWlhZGEiDQpzdWJ0aXRsZTogIkNsYXNlIDQuIFRpZHl2ZXJzZSAtIFBvYnJlemEiDQpkYXRlOiAiMjcvOC8yMDE5Ig0Kb3V0cHV0Og0KICBodG1sX25vdGVib29rOiANCiAgICB0b2M6IHRydWUNCiAgICB0b2NfZmxvYXQ6IHRydWUgDQotLS0NCg0KDQojIEVqZXJjaWNpb3MgdmluY3VsYWRvcyBhIGxhIGVzdGltYWNpb24gZGUgcG9icmV6YQ0KTGV2YW50YXIgbGEgYmFzZSBkZWwgMXQgZGUgMjAxNyANCmBgYHtyIGVjaG89VFJVRX0NCmxpYnJhcnkocmVhZHhsKQ0KbGlicmFyeSh0aWR5dmVyc2UpDQpBREVRVUkgPC0gcmVhZF9leGNlbCgiLi4vRnVlbnRlcy9BREVRVUkueGxzeCIpDQpSZWdpb25lcyA8LSByZWFkX2V4Y2VsKCIuLi9GdWVudGVzL1JlZ2lvbmVzLnhsc3giKQ0KYmFzZSA8LSByZWFkLnRhYmxlKCIuLi9GdWVudGVzL3VzdV9pbmRpdmlkdWFsX3QxMTcudHh0IixoZWFkZXIgPSBULHNlcCA9ICI7IixkZWMgPSAiLCIpDQpgYGANCg0KRXN0aW1hciBjdWFudGFzIHBlcnNvbmFzIGhhYml0YW4gZW4gaG9nYXJlcyBjb24gaW5ncmVzb3MgdG90YWxlcyBtZW5vcmVzIGEgJDE1LjAwMA0KDQpgYGB7ciBlY2hvPVRSVUV9DQpiYXNlICU+JSANCiAgc3VtbWFyaXNlKENhc29zX1BvbmRlcmFkb3MgPXN1bShQT05ESUhbSVRGPDE1MDAwXSkpDQpgYGANCiMgQWR1bHRvcyBlcXVpdmFsZW50ZXMgDQpDb25zdHJ1aXIgZW4gbGEgYmFzZSB1bmEgdmFyaWFibGUgcXVlIGlkZW50aWZpcXVlIGVsIHRvdGFsIGRlIHBlcnNvbmFzIHkgZGUgYWR1bHRvcyBlcXVpdmFsZW50ZXMgcHJlc2VudGVzIGVuIGNhZGEgaG9nYXIgKFVzYXIgZWwgZXhjZWwgZGUgbGEgY2FycGV0YSBfRnVlbnRlc18gcXVlIGNvbnRpZW5lIGxhIGRlZmluaWNpw7NuIGRlIGxvcyBhZHVsdG9zIGVxLikNCmBgYHtyIGVjaG89VFJVRX0NCmJhc2VfY29uX2lkZW50aWZpY2Fkb3IgPC0gYmFzZSAlPiUgDQogIGxlZnRfam9pbihBREVRVUksYnkgPSBjKCJDSDA0IiwgIkNIMDYiKSkgJT4lIA0KICBncm91cF9ieShDT0RVU1UsTlJPX0hPR0FSKSAlPiUgDQogIG11dGF0ZShQZXJzb25hc19lbl9ob2dhciA9IG4oKSwNCiAgICAgICAgIGFkZXF1aV9lbl9ob2dhciA9IHN1bShhZGVxdWkpKQ0KYGBgDQpBIHBhcnRpciBkZWwgcHVudG8gYW50ZXJpb3I6DQogLSDCv0N1YW50YXMgcGVyc29uYXMgaGFiaXRhbiBlbiBob2dhcmVzIGRlIDcgbyBtw6FzIGludGVncmFudGVzPw0KYGBge3IgZWNobz1UUlVFfQ0KYmFzZV9jb25faWRlbnRpZmljYWRvciAlPiUgDQogIHVuZ3JvdXAoKSAlPiUgDQogIGZpbHRlcihQZXJzb25hc19lbl9ob2dhcj49NykgJT4lIA0KICBzdW1tYXJpc2UoUEVSU09OQVMgPSBzdW0oUE9OREVSQSkpDQoNCg0KYGBgDQogLSDCv0N1YW50b3MgaG9nYXJlcyB0aWVuZW4gbcOhcyBkZSA3IG8gbcOhcyBpbnRlZ3JhbnRlcz8NCiAtIENvbnN0cnVpciB1bmEgdmFyaWFibGUgcXVlIGV4cHJlc2UgZWwgSW5ncmVzbyBUb3RhbCBGYW1pbGlhciAoSVRGKSBwZXIgY2FwaXRhIGRlIGNhZGEgaG9nYXINCiAtIENvbnN0cnVpciB1bmEgdmFyaWFibGUgcXVlIGV4cHJlc2UgZWwgSW5ncmVzbyBUb3RhbCBGYW1pbGlhciAoSVRGKSBwb3IgYWR1bHRvIGVxdWl2YWxlbnRlIA0KIC0gQ2FsY3VsYXIgZWwgSVRGIHBlciBjYXBpdGEgcHJvbWVkaW8gcG9yIFJlZ2nDs24gDQogLSBDYWxjdWxhciBlbCBJVEYgcG9yIGFkdWx0byBlcXVpdmFsZW50ZSBwcm9tZWRpbyBwb3IgUmVnaW9uDQoNCmBgYHtyfQ0KYmFzZV9hX25pdmVsX2hvZ2FyIDwtIGJhc2VfY29uX2lkZW50aWZpY2Fkb3IgJT4lIA0KICBncm91cF9ieShDT0RVU1UsTlJPX0hPR0FSKSAlPiUgDQogIHN1bW1hcmlzZShQT05ESUggPSB1bmlxdWUoUE9ORElIKSwNCiAgICAgICAgICAgIElURiA9IHVuaXF1ZShJVEYpLA0KICAgICAgICAgICAgUkVHSU9OID0gdW5pcXVlKFJFR0lPTiksDQogICAgICAgICAgICBQZXJzb25hcyA9IG4oKSwNCiAgICAgICAgICAgIGFkZXF1aV9lbl9ob2dhciA9IHN1bShhZGVxdWkpKQ0KDQoNCmJhc2VfYV9uaXZlbF9ob2dhciAlPiUgDQogIGZpbHRlcihQZXJzb25hcz49NykgJT4lIA0KICB1bmdyb3VwKCkgJT4lIA0KICBzdW1tYXJpc2UoSE9HQVJFUyA9IHN1bShQT05ESUgpKQ0KYGBgDQpgYGB7cn0NCmJhc2VfYV9uaXZlbF9ob2dhciAlPiUgDQogIG11dGF0ZShJVEYucGMgPSBJVEYvUGVyc29uYXMsDQogICAgICAgICBJVEYuYWUgPSBJVEYvYWRlcXVpX2VuX2hvZ2FyKSAlPiUgDQogIGdyb3VwX2J5KFJFR0lPTikgJT4lIA0KICBzdW1tYXJpc2UoSVRGLnBjLnByb21lZGlvID0gd2VpZ2h0ZWQubWVhbihJVEYucGMsUE9ORElIKSwNCiAgICAgICAgICAgIElURi5hZS5wcm9tZWRpbyA9IHdlaWdodGVkLm1lYW4oSVRGLmFlLFBPTkRJSCkpICU+JSANCiAgbGVmdF9qb2luKFJlZ2lvbmVzKQ0KYGBgDQoNCg==