library(rio)
vivienda=import("reporte_V.xlsx")
## New names:
## • `` -> `...2`
## • `` -> `...3`
## • `` -> `...4`
## • `` -> `...5`
## • `` -> `...6`
## • `` -> `...7`
## • `` -> `...8`
## • `` -> `...9`
## • `` -> `...10`
## • `` -> `...11`
## • `` -> `...12`
## • `` -> `...13`
## • `` -> `...14`
## • `` -> `...15`
## • `` -> `...16`
## • `` -> `...17`
## • `` -> `...18`
## • `` -> `...19`
## • `` -> `...20`
## • `` -> `...21`
## • `` -> `...22`
## • `` -> `...23`
## • `` -> `...24`
## • `` -> `...25`
## • `` -> `...26`
## • `` -> `...27`
## • `` -> `...28`
## • `` -> `...29`
## • `` -> `...30`
## • `` -> `...31`
## • `` -> `...32`
## • `` -> `...33`
## • `` -> `...34`
## • `` -> `...35`
## • `` -> `...36`
## • `` -> `...37`
## • `` -> `...38`
## • `` -> `...39`
## • `` -> `...40`
## • `` -> `...41`
## • `` -> `...42`
## • `` -> `...43`
vivienda=vivienda[,-c(1)]
vivienda=vivienda[-c(1:4),]
row.names(vivienda)=NULL
vivienda=vivienda[-c(198:200),]
colnames(vivienda)=vivienda[1,]
vivienda=vivienda[-c(1),]
row.names(vivienda)=NULL
str(vivienda)
## 'data.frame': 196 obs. of 42 variables:
## $ Código : chr "101" "102" "103" "104" ...
## $ Provincia : chr "Amazonas, provincia: Chachapoyas" "Amazonas, provincia: Bagua" "Amazonas, provincia: Bongara" "Amazonas, provincia: Condorcanqui" ...
## $ Ladrillo o bloque de cemento : chr "3782" "4633" "1602" "291" ...
## $ Piedra o sillar con cal o cemento : chr "22" "46" "9" "7" ...
## $ Adobe : chr "5881" "6639" "2729" "672" ...
## $ Tapia : chr "2476" "222" "240" "8" ...
## $ Quincha (caña con barro) : chr "309" "2518" "157" "386" ...
## $ Piedra con barro : chr "168" "127" "36" "7" ...
## $ Madera (pona, tornillo etc.) : chr "1270" "4484" "2505" "8145" ...
## $ Triplay / calamina / estera : chr "91" "851" "30" "200" ...
## $ Otro material : chr "0" "0" "0" "0" ...
## $ Total : chr "13999" "19520" "7308" "9716" ...
## $ Concreto armado : chr "2262" "2187" "692" "56" ...
## $ Madera : chr "160" "294" "75" "188" ...
## $ Tejas : chr "3393" "179" "382" "177" ...
## $ Planchas de calamina, fibra de cemento o similares : chr "8005" "13186" "6084" "2036" ...
## $ Caña o estera con torta de barro o cemento : chr "50" "160" "38" "15" ...
## $ Triplay / estera / carrizo : chr "14" "106" "5" "10" ...
## $ Paja, hoja de palmera y similares : chr "115" "3408" "32" "7234" ...
## $ Otro material : chr "0" "0" "0" "0" ...
## $ Total : chr "13999" "19520" "7308" "9716" ...
## $ Parquet o madera pulida : chr "23" "6" "5" "2" ...
## $ Láminas asfálticas, vinílicos o similares : chr "36" "19" "2" "0" ...
## $ Losetas, terrazos, cerámicos o similares : chr "1077" "647" "165" "20" ...
## $ Madera (pona, tornillo, etc.) : chr "240" "157" "132" "1523" ...
## $ Cemento : chr "6189" "7121" "2917" "943" ...
## $ Tierra : chr "6434" "11569" "4087" "7228" ...
## $ Otro material : chr "0" "1" "0" "0" ...
## $ Total : chr "13999" "19520" "7308" "9716" ...
## $ Red pública dentro de la vivienda : chr "10647" "9429" "4569" "1307" ...
## $ Red pública fuera de la vivienda, pero dentro de la edificación: chr "1619" "4392" "1497" "867" ...
## $ Pilón o pileta de uso público : chr "184" "793" "215" "1003" ...
## $ Camión - cisterna u otro similar : chr "49" "59" "0" "2" ...
## $ Pozo (agua subterránea) : chr "876" "1792" "474" "2564" ...
## $ Manantial o puquio : chr "92" "270" "67" "431" ...
## $ Río, acequia, lago, laguna : chr "488" "2648" "388" "3428" ...
## $ Otro : chr "24" "56" "61" "80" ...
## $ Vecino : chr "20" "81" "37" "34" ...
## $ Total : chr "13999" "19520" "7308" "9716" ...
## $ Sí tiene alumbrado eléctrico : chr "12248" "13204" "6025" "1792" ...
## $ No tiene alumbrado eléctrico : chr "1751" "6316" "1283" "7924" ...
## $ Total : chr "13999" "19520" "7308" "9716" ...
names(vivienda)
## [1] "Código"
## [2] "Provincia"
## [3] "Ladrillo o bloque de cemento"
## [4] "Piedra o sillar con cal o cemento"
## [5] "Adobe"
## [6] "Tapia"
## [7] "Quincha (caña con barro)"
## [8] "Piedra con barro"
## [9] "Madera (pona, tornillo etc.)"
## [10] "Triplay / calamina / estera"
## [11] "Otro material"
## [12] "Total"
## [13] "Concreto armado"
## [14] "Madera"
## [15] "Tejas"
## [16] "Planchas de calamina, fibra de cemento o similares"
## [17] "Caña o estera con torta de barro o cemento"
## [18] "Triplay / estera / carrizo"
## [19] "Paja, hoja de palmera y similares"
## [20] "Otro material"
## [21] "Total"
## [22] "Parquet o madera pulida"
## [23] "Láminas asfálticas, vinílicos o similares"
## [24] "Losetas, terrazos, cerámicos o similares"
## [25] "Madera (pona, tornillo, etc.)"
## [26] "Cemento"
## [27] "Tierra"
## [28] "Otro material"
## [29] "Total"
## [30] "Red pública dentro de la vivienda"
## [31] "Red pública fuera de la vivienda, pero dentro de la edificación"
## [32] "Pilón o pileta de uso público"
## [33] "Camión - cisterna u otro similar"
## [34] "Pozo (agua subterránea)"
## [35] "Manantial o puquio"
## [36] "Río, acequia, lago, laguna"
## [37] "Otro"
## [38] "Vecino"
## [39] "Total"
## [40] "Sí tiene alumbrado eléctrico"
## [41] "No tiene alumbrado eléctrico"
## [42] "Total"
names(vivienda)[12]=c("Total_paredes")
names(vivienda)[21]=c("Total_techos")
names(vivienda)[29]=c("Total_pisos")
names(vivienda)[39]=c("Total_abastecimiento_agua")
names(vivienda)[42]=c("Total_tiene_luz")
library(stringr)
library(magrittr)
vivienda$dep=str_split(string = vivienda$Provincia,
pattern = ', provincia: ',
simplify = T)[,1]
vivienda$prov=str_split(string = vivienda$Provincia,
pattern = ', provincia: ',
simplify = T)[,2]
vivienda$Provincia=NULL
vivienda=vivienda[,c(1,42,43,2:41)]
str(vivienda)
## 'data.frame': 196 obs. of 43 variables:
## $ Código : chr "101" "102" "103" "104" ...
## $ dep : chr "Amazonas" "Amazonas" "Amazonas" "Amazonas" ...
## $ prov : chr "Chachapoyas" "Bagua" "Bongara" "Condorcanqui" ...
## $ Ladrillo o bloque de cemento : chr "3782" "4633" "1602" "291" ...
## $ Piedra o sillar con cal o cemento : chr "22" "46" "9" "7" ...
## $ Adobe : chr "5881" "6639" "2729" "672" ...
## $ Tapia : chr "2476" "222" "240" "8" ...
## $ Quincha (caña con barro) : chr "309" "2518" "157" "386" ...
## $ Piedra con barro : chr "168" "127" "36" "7" ...
## $ Madera (pona, tornillo etc.) : chr "1270" "4484" "2505" "8145" ...
## $ Triplay / calamina / estera : chr "91" "851" "30" "200" ...
## $ Otro material : chr "0" "0" "0" "0" ...
## $ Total_paredes : chr "13999" "19520" "7308" "9716" ...
## $ Concreto armado : chr "2262" "2187" "692" "56" ...
## $ Madera : chr "160" "294" "75" "188" ...
## $ Tejas : chr "3393" "179" "382" "177" ...
## $ Planchas de calamina, fibra de cemento o similares : chr "8005" "13186" "6084" "2036" ...
## $ Caña o estera con torta de barro o cemento : chr "50" "160" "38" "15" ...
## $ Triplay / estera / carrizo : chr "14" "106" "5" "10" ...
## $ Paja, hoja de palmera y similares : chr "115" "3408" "32" "7234" ...
## $ Otro material.1 : chr "0" "0" "0" "0" ...
## $ Total_techos : chr "13999" "19520" "7308" "9716" ...
## $ Parquet o madera pulida : chr "23" "6" "5" "2" ...
## $ Láminas asfálticas, vinílicos o similares : chr "36" "19" "2" "0" ...
## $ Losetas, terrazos, cerámicos o similares : chr "1077" "647" "165" "20" ...
## $ Madera (pona, tornillo, etc.) : chr "240" "157" "132" "1523" ...
## $ Cemento : chr "6189" "7121" "2917" "943" ...
## $ Tierra : chr "6434" "11569" "4087" "7228" ...
## $ Otro material.2 : chr "0" "1" "0" "0" ...
## $ Total_pisos : chr "13999" "19520" "7308" "9716" ...
## $ Red pública dentro de la vivienda : chr "10647" "9429" "4569" "1307" ...
## $ Red pública fuera de la vivienda, pero dentro de la edificación: chr "1619" "4392" "1497" "867" ...
## $ Pilón o pileta de uso público : chr "184" "793" "215" "1003" ...
## $ Camión - cisterna u otro similar : chr "49" "59" "0" "2" ...
## $ Pozo (agua subterránea) : chr "876" "1792" "474" "2564" ...
## $ Manantial o puquio : chr "92" "270" "67" "431" ...
## $ Río, acequia, lago, laguna : chr "488" "2648" "388" "3428" ...
## $ Otro : chr "24" "56" "61" "80" ...
## $ Vecino : chr "20" "81" "37" "34" ...
## $ Total_abastecimiento_agua : chr "13999" "19520" "7308" "9716" ...
## $ Sí tiene alumbrado eléctrico : chr "12248" "13204" "6025" "1792" ...
## $ No tiene alumbrado eléctrico : chr "1751" "6316" "1283" "7924" ...
## $ Total_tiene_luz : chr "13999" "19520" "7308" "9716" ...
vivienda[,c(4:43)]=lapply(vivienda[,c(4:43)], as.numeric)
str(vivienda)
## 'data.frame': 196 obs. of 43 variables:
## $ Código : chr "101" "102" "103" "104" ...
## $ dep : chr "Amazonas" "Amazonas" "Amazonas" "Amazonas" ...
## $ prov : chr "Chachapoyas" "Bagua" "Bongara" "Condorcanqui" ...
## $ Ladrillo o bloque de cemento : num 3782 4633 1602 291 430 ...
## $ Piedra o sillar con cal o cemento : num 22 46 9 7 7 7 35 40 1 0 ...
## $ Adobe : num 5881 6639 2729 672 5217 ...
## $ Tapia : num 2476 222 240 8 6052 ...
## $ Quincha (caña con barro) : num 309 2518 157 386 346 ...
## $ Piedra con barro : num 168 127 36 7 54 28 518 106 65 7 ...
## $ Madera (pona, tornillo etc.) : num 1270 4484 2505 8145 606 ...
## $ Triplay / calamina / estera : num 91 851 30 200 45 24 210 340 18 0 ...
## $ Otro material : num 0 0 0 0 0 0 0 0 0 0 ...
## $ Total_paredes : num 13999 19520 7308 9716 12757 ...
## $ Concreto armado : num 2262 2187 692 56 187 ...
## $ Madera : num 160 294 75 188 43 48 340 515 57 12 ...
## $ Tejas : num 3393 179 382 177 3071 ...
## $ Planchas de calamina, fibra de cemento o similares : num 8005 13186 6084 2036 9343 ...
## $ Caña o estera con torta de barro o cemento : num 50 160 38 15 26 15 196 326 10 8 ...
## $ Triplay / estera / carrizo : num 14 106 5 10 12 5 62 312 17 4 ...
## $ Paja, hoja de palmera y similares : num 115 3408 32 7234 75 ...
## $ Otro material.1 : num 0 0 0 0 0 0 0 0 0 0 ...
## $ Total_techos : num 13999 19520 7308 9716 12757 ...
## $ Parquet o madera pulida : num 23 6 5 2 4 3 20 585 0 0 ...
## $ Láminas asfálticas, vinílicos o similares : num 36 19 2 0 0 4 32 323 0 0 ...
## $ Losetas, terrazos, cerámicos o similares : num 1077 647 165 20 46 ...
## $ Madera (pona, tornillo, etc.) : num 240 157 132 1523 295 ...
## $ Cemento : num 6189 7121 2917 943 1911 ...
## $ Tierra : num 6434 11569 4087 7228 10501 ...
## $ Otro material.2 : num 0 1 0 0 0 0 0 0 0 0 ...
## $ Total_pisos : num 13999 19520 7308 9716 12757 ...
## $ Red pública dentro de la vivienda : num 10647 9429 4569 1307 7172 ...
## $ Red pública fuera de la vivienda, pero dentro de la edificación: num 1619 4392 1497 867 3097 ...
## $ Pilón o pileta de uso público : num 184 793 215 1003 1112 ...
## $ Camión - cisterna u otro similar : num 49 59 0 2 0 0 117 40 0 0 ...
## $ Pozo (agua subterránea) : num 876 1792 474 2564 819 ...
## $ Manantial o puquio : num 92 270 67 431 132 211 471 286 121 61 ...
## $ Río, acequia, lago, laguna : num 488 2648 388 3428 369 ...
## $ Otro : num 24 56 61 80 9 29 104 72 2 1 ...
## $ Vecino : num 20 81 37 34 47 8 177 121 9 4 ...
## $ Total_abastecimiento_agua : num 13999 19520 7308 9716 12757 ...
## $ Sí tiene alumbrado eléctrico : num 12248 13204 6025 1792 10886 ...
## $ No tiene alumbrado eléctrico : num 1751 6316 1283 7924 1871 ...
## $ Total_tiene_luz : num 13999 19520 7308 9716 12757 ...
sum(is.na(vivienda))
## [1] 0
vivienda = na.omit(vivienda)
library(rio)
hogar=import("reporte_H.xlsx")
## New names:
## • `` -> `...2`
## • `` -> `...3`
## • `` -> `...4`
## • `` -> `...5`
## • `` -> `...6`
## • `` -> `...7`
## • `` -> `...8`
## • `` -> `...9`
## • `` -> `...10`
## • `` -> `...11`
## • `` -> `...12`
## • `` -> `...13`
## • `` -> `...14`
## • `` -> `...15`
hogar=hogar[,-c(1)]
hogar=hogar[-c(1:4),]
row.names(hogar)=NULL
hogar=hogar[-c(198:200),]
colnames(hogar)=hogar[1,]
hogar=hogar[-c(1),]
row.names(hogar)=NULL
str(hogar)
## 'data.frame': 196 obs. of 14 variables:
## $ Código : chr "101" "102" "103" "104" ...
## $ Provincia : chr "Amazonas, provincia: Chachapoyas" "Amazonas, provincia: Bagua" "Amazonas, provincia: Bongara" "Amazonas, provincia: Condorcanqui" ...
## $ No usa electricidad : chr "14763" "20313" "7689" "9853" ...
## $ Sí usa electricidad : chr "574" "161" "124" "14" ...
## $ Total : chr "15337" "20474" "7813" "9867" ...
## $ No usa gas (balón GLP): chr "4696" "10557" "3154" "8331" ...
## $ Sí usa gas (balón GLP): chr "10641" "9917" "4659" "1536" ...
## $ Total : chr "15337" "20474" "7813" "9867" ...
## $ No usa carbón : chr "15161" "20185" "7755" "9841" ...
## $ Sí usa carbón : chr "176" "289" "58" "26" ...
## $ Total : chr "15337" "20474" "7813" "9867" ...
## $ No usa leña : chr "7236" "7357" "2345" "1059" ...
## $ Sí usa leña : chr "8101" "13117" "5468" "8808" ...
## $ Total : chr "15337" "20474" "7813" "9867" ...
names(hogar)
## [1] "Código" "Provincia" "No usa electricidad"
## [4] "Sí usa electricidad" "Total" "No usa gas (balón GLP)"
## [7] "Sí usa gas (balón GLP)" "Total" "No usa carbón"
## [10] "Sí usa carbón" "Total" "No usa leña"
## [13] "Sí usa leña" "Total"
names(hogar)[5]=c("Total_cocinar_electricidad")
names(hogar)[8]=c("Total_cocinar_gas")
names(hogar)[11]=c("Total_cocinar_carbon")
names(hogar)[14]=c("Total_cocinar_leña")
library(stringr)
library(magrittr)
hogar$dep=str_split(string = hogar$Provincia,
pattern = ', provincia: ',
simplify = T)[,1]
hogar$prov=str_split(string = hogar$Provincia,
pattern = ', provincia: ',
simplify = T)[,2]
hogar$Provincia=NULL
hogar=hogar[,c(1,14,15,2:13)]
str(hogar)
## 'data.frame': 196 obs. of 15 variables:
## $ Código : chr "101" "102" "103" "104" ...
## $ dep : chr "Amazonas" "Amazonas" "Amazonas" "Amazonas" ...
## $ prov : chr "Chachapoyas" "Bagua" "Bongara" "Condorcanqui" ...
## $ No usa electricidad : chr "14763" "20313" "7689" "9853" ...
## $ Sí usa electricidad : chr "574" "161" "124" "14" ...
## $ Total_cocinar_electricidad: chr "15337" "20474" "7813" "9867" ...
## $ No usa gas (balón GLP) : chr "4696" "10557" "3154" "8331" ...
## $ Sí usa gas (balón GLP) : chr "10641" "9917" "4659" "1536" ...
## $ Total_cocinar_gas : chr "15337" "20474" "7813" "9867" ...
## $ No usa carbón : chr "15161" "20185" "7755" "9841" ...
## $ Sí usa carbón : chr "176" "289" "58" "26" ...
## $ Total_cocinar_carbon : chr "15337" "20474" "7813" "9867" ...
## $ No usa leña : chr "7236" "7357" "2345" "1059" ...
## $ Sí usa leña : chr "8101" "13117" "5468" "8808" ...
## $ Total_cocinar_leña : chr "15337" "20474" "7813" "9867" ...
hogar[,c(4:15)]=lapply(hogar[,c(4:15)], as.numeric)
str(hogar)
## 'data.frame': 196 obs. of 15 variables:
## $ Código : chr "101" "102" "103" "104" ...
## $ dep : chr "Amazonas" "Amazonas" "Amazonas" "Amazonas" ...
## $ prov : chr "Chachapoyas" "Bagua" "Bongara" "Condorcanqui" ...
## $ No usa electricidad : num 14763 20313 7689 9853 13112 ...
## $ Sí usa electricidad : num 574 161 124 14 90 65 255 921 16 33 ...
## $ Total_cocinar_electricidad: num 15337 20474 7813 9867 13202 ...
## $ No usa gas (balón GLP) : num 4696 10557 3154 8331 6863 ...
## $ Sí usa gas (balón GLP) : num 10641 9917 4659 1536 6339 ...
## $ Total_cocinar_gas : num 15337 20474 7813 9867 13202 ...
## $ No usa carbón : num 15161 20185 7755 9841 13169 ...
## $ Sí usa carbón : num 176 289 58 26 33 26 335 218 4 4 ...
## $ Total_cocinar_carbon : num 15337 20474 7813 9867 13202 ...
## $ No usa leña : num 7236 7357 2345 1059 1833 ...
## $ Sí usa leña : num 8101 13117 5468 8808 11369 ...
## $ Total_cocinar_leña : num 15337 20474 7813 9867 13202 ...
sum(is.na(hogar))
## [1] 0
hogar = na.omit(hogar)
names(vivienda)[1]=c("cod")
names(hogar)[1]=c("cod")
hovi=merge(hogar, vivienda, by.x = "cod" , by.y = "cod")
hovi$prov.y = NULL
hovi$dep.y = NULL
names(hovi)[2]=c("departamento")
names(hovi)[3]=c("provincia")
# Luego escribimos el siguiente comando:
write.csv(hovi, "hovi.csv")
b4=import("b4_fallecidos_covid.csv")
b4$anho_fallecimiento=substr(b4$FECHA_FALLECIMIENTO,start=1,stop=4)
str(b4$anho_fallecimiento)
## chr [1:220918] "2022" "2021" "2021" "2021" "2021" "2021" "2021" "2022" ...