Book a Demo!
CoCalc Logo Icon
StoreFeaturesDocsShareSupportNewsAboutPoliciesSign UpSign In
robertopucp
GitHub Repository: robertopucp/1eco35_2022_2
 Path: blob/main/Trabajo_grupal/WG6/Grupo_9_r_Pregunta1.R
2714 views
1
### Pregunta 1 #### Grupo 9 ####

2


3
pacman::p_load(haven,dplyr, stringr)

4


5


6
"1.0 Set Directorio"

7


8
user <- Sys.getenv("USERNAME")  # username

9


10
setwd( paste0("C:/Users/",user,"/Documents/GitHub/1ECO35_2022_2/Grupo9") ) 

11


12


13
"2.0 Cargar dataset de ENAHO"

14


15
enaho01 <- read_dta("../../enaho/2020/737-Modulo01/737-Modulo01/enaho01-2020-100.dta")

16
sumaria <- read_dta("../../enaho/2020/737-Modulo34/737-Modulo34/sumaria-2020.dta")

17


18


19
"3.0 Juntar bases"

20


21
enaho_2020 <- merge(enaho01, sumaria,

22
                   by = c("conglome", "vivienda", "hogar"),

23
                   all.x = T, suffixes = c("",".y")

24
                   )

25
"4.0 Filtrar variables a usar"

26


27
enaho_2020 <- enaho_2020[ ,c("conglome", "vivienda", "hogar" ,"ubigeo", 

28
                   "aÑo" , "mieperho", "inghog1d", 

29
                   "gashog2d", "ld") ]

30


31


32
###### Repetir procedimiento con data 2019   ######

33
"2.0"

34
enaho01 <- read_dta("../../enaho/2019/687-Modulo01/687-Modulo01/enaho01-2019-100.dta")

35
sumaria <- read_dta("../../enaho/2019/687-Modulo34/687-Modulo34/sumaria-2019.dta")

36


37


38
"3.0"

39
enaho_2019 <- merge(enaho01, sumaria,

40
                    by = c("conglome", "vivienda", "hogar", 

41
                           "ubigeo", "dominio", "estrato"),

42
                    all.x = T, suffixes = c("",".y")

43
                    )

44


45
"4.0"

46
enaho_2019 <- enaho_2019[ ,c("conglome", "vivienda", "hogar" ,"ubigeo", 

47
                             "aÑo" , "mieperho", "inghog1d", 

48
                             "gashog2d", "ld") ]

49


50
###################################################

51


52
"5.0 Append de base 2019 y 2020"

53
enaho_append <-  bind_rows(enaho_2020, enaho_2019)

54


55
  #Año:

56
enaho_append <-  enaho_append %>% rename("aniorec"="aÑo")

57
  #Departamento:

58
enaho_append['dpto'] <- paste(as.numeric(substr(enaho_append$ubigeo, 1, 2)))  

59
      #Nota, se coloca as.numeric para convertirlo en numero y 

60
      #hacer merge con base de deflactor

61


62


63
"6.0 Deflactar las variables"

64
  #Deflactor espacial:

65
      # ld de base

66


67
  #Deflactor temporal:

68
deflactor <- read_dta("../../enaho/2020/737-Modulo34/737-Modulo34/ConstVarGasto-Metodologia actualizada/Gasto2020/Bases/deflactores_base2020_new.dta")

69
deflactor <- deflactor[ , c("dpto", "aniorec", "i00")]

70


71
  #Unir deflactor a la base principal:

72
enaho <- merge(enaho_append, deflactor,

73
               by = c( "dpto", "aniorec"),

74
               all.x=T)

75


76


77
"7.0 Dividir las variables de ingreso y gasto por mieperho, 12, ld e i00."

78


79
enaho <- enaho %>%

80
         mutate(

81
         ingreso_month_pc = enaho$inghog1d/(enaho$mieperho* enaho$ld * enaho$i00*12),

82
         gasto_month_pc = enaho$gashog2d/(enaho$mieperho* enaho$ld * enaho$i00*12)

83
         )

84


85
#Ingreso per cápita = ingreso_month_pc

86


87
#Gasto per cápita = gasto_month_pc

88


89
"8.0 Comprobación son los mismos valores que en Python"

90
enaho <- enaho[order(enaho$aniorec, enaho$conglome, enaho$vivienda, enaho$hogar),]

91
View(enaho)

92


93