PARTE 2:

Censo 2017, votaciones de 2021 (2da vuelta) y del covid (positivos y fallecidos)

library(rio)
dataok=import("https://docs.google.com/spreadsheets/d/1PVIpzCuw3m5fOS1SfbD0DIfxvMP3KQGy65F9qHl4AE8/edit?gid=805156833#gid=805156833")
names(dataok)
##  [1] "V1"                      "key"                    
##  [3] "Código"                  "pared1_Ladrillo"        
##  [5] "pared2_Piedra"           "pared3_Adobe"           
##  [7] "pared4_Tapia"            "pared5_Quincha"         
##  [9] "pared6_Piedra"           "pared7_Madera"          
## [11] "pared8_Triplay"          "pared9_Otro"            
## [13] "pared10_Total"           "techo1_Concreto"        
## [15] "techo2_Madera"           "techo3_Tejas"           
## [17] "techo4_Planchas"         "techo5_Caña"            
## [19] "techo6_Triplay"          "techo7_Paja"            
## [21] "techo8_Otro"             "techo9_Total"           
## [23] "piso1_Parquet"           "piso2_Láminas"          
## [25] "piso3_Losetas"           "piso4_Madera"           
## [27] "piso5_Cemento"           "piso6_Tierra"           
## [29] "piso7_Otro"              "piso8_Total"            
## [31] "agua1_Red"               "agua2_Red_fueraVivienda"
## [33] "agua3_Pilón"             "agua4_Camión"           
## [35] "agua5_Pozo"              "agua6_Manantial"        
## [37] "agua7_Río"               "agua8_Otro"             
## [39] "agua9_Vecino"            "agua10_Total"           
## [41] "elec1_Sí"                "elec2_No"               
## [43] "elec3_Total"             "departamento"           
## [45] "provincia"               "Castillo"               
## [47] "Keiko"                   "ganaCastillo"           
## [49] "countPositivos"          "countFallecidos"

Porcentaje de viviendas que tiene agua de red pública dentro de la vivienda (agua1_red)

Razon de votación de Keiko () y Castillo ()

Tasa de fallecidos por cada 1000 contagiados ()

set.seed(123)
data2=data.frame(
  countFallecidos=sample(1:196,replace=TRUE),
  countPositivos=sample(1:196, replace=TRUE))
data2$tasa_fallecidos=(data2$countFallecidos/data2$countPositivos)*1000
dataok1=merge(data2,dataok,by="countFallecidos")
set.seed(123)
data3=data.frame(
  agua1_Red=sample(1:196,replace=TRUE),
  agua10_Total=sample(1:196,replace=TRUE))
porcentaje=(data3$agua1_red/sum(data3$agua10_Total))*100
print(porcentaje)
## numeric(0)

Agregando todas las provincias (menos Lima) en un clúster

#boxplot(dataok1[,c(3, 49,50, "agua1_Red")])