Limpie el environment para comenzar a trabajar.
rm(list = ls())Cargue los paquetes necesarios para trabajar con DT.
library(data.table)Abra la base de datos Resultados Electorales Pista: Para los archivos .RDS utilice la función readRDS. Este es un paquete base asi que no deben cargar ningún paquete previamente.
ResultadosElectorales <- readRDS("C:/Users/franc/Desktop/7° Semestre/Data science/Tarea decimas/ResultadosElectorales.rds")Elimine los individuos cuyo nombre del Candidato sea “VOTOS NULOS”, “TOTAL” o “VOTOS EN BLANCO”
ResultadosElectorales <- ResultadosElectorales[Candidato!="VOTOS NULOS"]
ResultadosElectorales <- ResultadosElectorales[Candidato!="TOTAL"]
ResultadosElectorales <- ResultadosElectorales[Candidato!="VOTOS EN BLANCO"]¿Cuántos pactos hubo en total según los datos?
ResultadosElectorales[,.N,by="Pacto"]## Pacto N
## 1: PACTO NUEVA MAYORIA 16267
## 2: PACTO CHILE VAMOS 16740
## 3: PACTO PUEBLO UNIDO 10074
## 4: CANDIDATURA INDEPENDIENTE 10312
## 5: PACTO ALTERNATIVA DEMOCRATICA 1607
## 6: PACTO PODER ECOLOGISTA Y CIUDADANO 7868
## 7: PACTO YO MARCO POR EL CAMBIO 6830
## 8: PACTO JUSTICIA Y TRANSPARENCIA 4855
## 9: PACTO CAMBIEMOS LA HISTORIA 611Pacto N 1: PACTO NUEVA MAYORIA 16267 2: PACTO CHILE VAMOS 16740 3: PACTO PUEBLO UNIDO 10074 4: CANDIDATURA INDEPENDIENTE 10312 5: PACTO ALTERNATIVA DEMOCRATICA 1607 6: PACTO PODER ECOLOGISTA Y CIUDADANO 7868 7: PACTO YO MARCO POR EL CAMBIO 6830 8: PACTO JUSTICIA Y TRANSPARENCIA 4855 9: PACTO CAMBIEMOS LA HISTORIA 611
R: 9
¿Cuántas comunas en total hay en la base de datos? ¿Cuál fue la comuna con más observaciones?
ResultadosElectorales[,.N,by="Comuna"]## Comuna N
## 1: ESTACION CENTRAL 1508
## 2: ALHUE 40
## 3: LAS CONDES 2948
## 4: PUENTE ALTO 3504
## 5: LAMPA 888
## 6: LA FLORIDA 4480
## 7: BUIN 756
## 8: CALERA DE TANGO 124
## 9: EL BOSQUE 1652
## 10: CERRILLOS 410
## 11: CERRO NAVIA 2082
## 12: PAINE 278
## 13: COLINA 438
## 14: PUDAHUEL 1912
## 15: MAIPU 6510
## 16: PEÑALOLEN 2188
## 17: CURACAVI 207
## 18: SANTIAGO 6293
## 19: CONCHALI 2709
## 20: EL MONTE 296
## 21: LO ESPEJO 1180
## 22: ÑUÑOA 2344
## 23: HUECHURABA 788
## 24: INDEPENDENCIA 940
## 25: ISLA DE MAIPO 219
## 26: MACUL 861
## 27: LA CISTERNA 777
## 28: LA GRANJA 1585
## 29: LA PINTANA 2436
## 30: LA REINA 1410
## 31: LO BARNECHEA 840
## 32: LO PRADO 813
## 33: MARIA PINTO 120
## 34: MELIPILLA 1590
## 35: PADRE HURTADO 440
## 36: PEDRO AGUIRRE CERDA 1550
## 37: PEÑAFLOR 1170
## 38: PIRQUE 180
## 39: PROVIDENCIA 2465
## 40: QUILICURA 1456
## 41: QUINTA NORMAL 1216
## 42: RECOLETA 2175
## 43: RENCA 1014
## 44: SAN BERNARDO 3240
## 45: SAN JOAQUIN 789
## 46: SAN JOSE DE MAIPO 215
## 47: SAN MIGUEL 1470
## 48: SAN PEDRO 115
## 49: SAN RAMON 747
## 50: TALAGANTE 636
## 51: TILTIL 120
## 52: VITACURA 1040
## Comuna NComuna N 1: ESTACION CENTRAL 1508 2: ALHUE 40 3: LAS CONDES 2948 4: PUENTE ALTO 3504 5: LAMPA 888 6: LA FLORIDA 4480 7: BUIN 756 8: CALERA DE TANGO 124 9: EL BOSQUE 1652 10: CERRILLOS 410 11: CERRO NAVIA 2082 12: PAINE 278 13: COLINA 438 14: PUDAHUEL 1912 15: MAIPU 6510 16: PEÑALOLEN 2188 17: CURACAVI 207 18: SANTIAGO 6293 19: CONCHALI 2709 20: EL MONTE 296 21: LO ESPEJO 1180 22: ÑUÑOA 2344 23: HUECHURABA 788 24: INDEPENDENCIA 940 25: ISLA DE MAIPO 219 26: MACUL 861 27: LA CISTERNA 777 28: LA GRANJA 1585 29: LA PINTANA 2436 30: LA REINA 1410 31: LO BARNECHEA 840 32: LO PRADO 813 33: MARIA PINTO 120 34: MELIPILLA 1590 35: PADRE HURTADO 440 36: PEDRO AGUIRRE CERDA 1550 37: PEÑAFLOR 1170 38: PIRQUE 180 39: PROVIDENCIA 2465 40: QUILICURA 1456 41: QUINTA NORMAL 1216 42: RECOLETA 2175 43: RENCA 1014 44: SAN BERNARDO 3240 45: SAN JOAQUIN 789 46: SAN JOSE DE MAIPO 215 47: SAN MIGUEL 1470 48: SAN PEDRO 115 49: SAN RAMON 747 50: TALAGANTE 636 51: TILTIL 120 52: VITACURA 1040 Comuna N
R: 52 Comunas
Comuna con mayores obs: Maipu
Genere una objeto que contenga los nombres de los candidatos. Asegurese de que la base de datos no repetirá el nombre de los candidatos.
Obj1 <- ResultadosElectorales[,.(Candidato)]
Obj1 <- ResultadosElectorales[!duplicated(Obj1)]¿Cuántas personas votaron en total? ¿Cuáles fueron las 2 coaliciones con más votos? ¿Cuántos votos obtuvieron?
ResultadosElectorales[,sum(Votos_TER)]## [1] 1575267ResultadosElectorales[,.N,by="Pacto"]## Pacto N
## 1: PACTO NUEVA MAYORIA 16267
## 2: PACTO CHILE VAMOS 16740
## 3: PACTO PUEBLO UNIDO 10074
## 4: CANDIDATURA INDEPENDIENTE 10312
## 5: PACTO ALTERNATIVA DEMOCRATICA 1607
## 6: PACTO PODER ECOLOGISTA Y CIUDADANO 7868
## 7: PACTO YO MARCO POR EL CAMBIO 6830
## 8: PACTO JUSTICIA Y TRANSPARENCIA 4855
## 9: PACTO CAMBIEMOS LA HISTORIA 611R1: 1575267
R2: PACTO NUEVA MAYORIA (16267) y PACTO CHILE VAMOS (16740)
¿Cuál fue el candidato “independiente” que obtuvo más votos?
Obj2 <- ResultadosElectorales[,.(Candidato, Partido,N_Votos)]
Obj3 <- Obj2[Partido=="INDEPENDIENTE"]
Obj3[,.N,by="Candidato"]## Candidato N
## 1: DORIS DAYANNA GONZALEZ LEMUNAO 377
## 2: MAURICIO SANTANDER VIDELA 377
## 3: ROBERTO TORRES HUERTA 20
## 4: WILLEM SCHUITEMAKER TRUFFELLO 737
## 5: DANIEL ESTEBAN GODOY MENDEZ 148
## 6: MARIA PAZ ESPINOZA CARVAJAL 148
## 7: JOSE NUÑEZ GONZALEZ 148
## 8: ALFONSO RODRIGUEZ LABBE 148
## 9: RODOLFO CARTER FERNANDEZ 896
## 10: PEDRO NUÑEZ CERDA 189
## 11: ERASMO VALENZUELA SANTIBAÑEZ 62
## 12: MAURO TAMAYO ROZAS 347
## 13: LUIS MOLINA GAETE 347
## 14: TAMARA VALESKA NORAMBUENA ARANCIBIA 478
## 15: CLAUDIA NATHALIE MIX JIMENEZ 1085
## 16: CATHERINE BARRIGA GUERRA 1085
## 17: SANDRA URIBE FLORES 1085
## 18: CHRISTIAN VITTORI MUÑOZ 1085
## 19: JUAN PABLO BARROS BASSO 69
## 20: ALONSO MATIAS ROJAS LOPEZ 899
## 21: LORETO SEGUEL KING 387
## 22: GUSTAVO VERGARA ROJAS 387
## 23: RENE DE LA VEGA FUENTES 387
## 24: LORENZO MOLINA RAMIREZ 387
## 25: ANTONIO ALIAGA LEIVA 74
## 26: PIO ORTEGA REYES 74
## 27: ELIZABETH DEL CARMEN HENRIQUEZ LEIVA 295
## 28: CARLOS INOSTROZA OJEDA 295
## 29: ANDRES ZARHI TROY 586
## 30: ALEJANDRO ZACUR PLOTZ 586
## 31: CAROLINA PLAZA GUZMAN 197
## 32: OSVALDO JAVIER NAVARRO JAMETT 197
## 33: VICTOR MAURICIO URZUA MAULEN 197
## 34: ANTONIO GARRIDO MARDONES 235
## 35: GONZALO MONTOYA RIQUELME 287
## 36: VIVIAN MAIRA SMITH 317
## 37: ANTONIO RIVAS FIGUEROA 317
## 38: JOSE ANSELMO HIDALGO ZAMORA 406
## 39: DIEGO IGLESIAS CARRANZA 406
## 40: JORGE ALEJANDRO NUÑEZ SANDOVAL 406
## 41: PEDRO DAVIS URZUA 282
## 42: RAFAEL PATRICIO WALKER SALGADO 210
## 43: CARLOS WARD EDWARDS 210
## 44: RICARDO FLORES GOMEZ 271
## 45: FELIPE ARMIJO SANCHEZ 271
## 46: CAROLINA ARAOS ESCANDON 30
## 47: JESSICA MUALIM FAJURI 30
## 48: ALVARO TOBAR GOMEZ 265
## 49: RAUL ANTONIO ROJAS LEON 265
## 50: FRANCISCO PARRA PINTO 265
## 51: CARLOS IBAÑEZ HORMAZABAL 310
## 52: JUAN ROZAS ROMERO 310
## 53: ARIEL ALONSO ROMERO NUÑEZ 195
## 54: ESTEBAN CACERES OLAVE 195
## 55: RICHARD LEIVA MENDOZA 195
## 56: MARIA JOSEFA ERRAZURIZ GUILISASTI 493
## 57: JUAN ELVIRO CARRASCO CONTRERAS 364
## 58: JAIME ACEITON VASQUEZ 364
## 59: JUAN CARLOS SOTO CLIVIO 304
## 60: VICTOR MANUEL MARTINEZ ÑANCO 648
## 61: MANUEL AHUMADA LILLO 648
## 62: SERGIO ECHEVERRIA GARCIA 263
## 63: HECTOR LEONARDO ARAVENA PEREZ 263
## 64: MAXIMILIANO VARGAS LABRA 43
## 65: JUAN CARLOS AGUIRRE LIZAMA 43
## 66: DANIEL RODRIGUEZ CLAVEROL 43
## 67: GUILLERMO ARAVENA MONDACA 294
## 68: RODRIGO GONZALEZ CERON 294
## 69: PAULINA PALACIOS VERGARA 23
## 70: JUAN CARLOS JIMENEZ SUFAN 23
## 71: LORENZO ANDRES MORALES CORTES 249
## 72: ALICIA STUARDO MORALES 159
## 73: PABLO ESQUIVEL VASQUEZ 159
## 74: NELSON ORELLANA URZUA 40
## 75: HECTOR MANUEL AHUMADA ROJAS 40
## 76: RODOLFO TERRAZAS GONZALEZ 260
## Candidato N¿Cuántas personas votaron en la comuna “LAS CONDES”?
Comuna1 <- ResultadosElectorales[,.(Comuna, N_Votos)]
Comuna1[,.N,by="Comuna"]## Comuna N
## 1: ESTACION CENTRAL 1508
## 2: ALHUE 40
## 3: LAS CONDES 2948
## 4: PUENTE ALTO 3504
## 5: LAMPA 888
## 6: LA FLORIDA 4480
## 7: BUIN 756
## 8: CALERA DE TANGO 124
## 9: EL BOSQUE 1652
## 10: CERRILLOS 410
## 11: CERRO NAVIA 2082
## 12: PAINE 278
## 13: COLINA 438
## 14: PUDAHUEL 1912
## 15: MAIPU 6510
## 16: PEÑALOLEN 2188
## 17: CURACAVI 207
## 18: SANTIAGO 6293
## 19: CONCHALI 2709
## 20: EL MONTE 296
## 21: LO ESPEJO 1180
## 22: ÑUÑOA 2344
## 23: HUECHURABA 788
## 24: INDEPENDENCIA 940
## 25: ISLA DE MAIPO 219
## 26: MACUL 861
## 27: LA CISTERNA 777
## 28: LA GRANJA 1585
## 29: LA PINTANA 2436
## 30: LA REINA 1410
## 31: LO BARNECHEA 840
## 32: LO PRADO 813
## 33: MARIA PINTO 120
## 34: MELIPILLA 1590
## 35: PADRE HURTADO 440
## 36: PEDRO AGUIRRE CERDA 1550
## 37: PEÑAFLOR 1170
## 38: PIRQUE 180
## 39: PROVIDENCIA 2465
## 40: QUILICURA 1456
## 41: QUINTA NORMAL 1216
## 42: RECOLETA 2175
## 43: RENCA 1014
## 44: SAN BERNARDO 3240
## 45: SAN JOAQUIN 789
## 46: SAN JOSE DE MAIPO 215
## 47: SAN MIGUEL 1470
## 48: SAN PEDRO 115
## 49: SAN RAMON 747
## 50: TALAGANTE 636
## 51: TILTIL 120
## 52: VITACURA 1040
## Comuna NR: 2948
Genere un objeto que contenga, para cada comuna, el número total de votos que se realizaron en la comuna. Llame a este objeto “DATOS_COMUNALES”
DATOS_COMUNALES <- ResultadosElectorales[,sum(N_Votos, na.rm = TRUE),by="Comuna"]Genere una base que contenga el nombre del candidato y el número total de votos a nivel de comuna que recibieron. Llame a este objeto “DATOS_CANDIDATOS”
DATOS_CANDIDATOS <- ResultadosElectorales[,sum (N_Votos, na.rm = TRUE), by=.(Comuna,Candidato)]Utilizando la base “DATOS_CANDIDATOS” genere una variable llamada “mayoria” que tome valor igual a uno si el individuo fue el candidatos con más votos en su comuna. En caso contrario, la variable debe tomar valor igual a cero.
Utilice la función “merge” para pegar la información de la base “DATOS_CANDIDATOS” y “DATOS_COMUNALES”. Llame a esta base “DATOS_FINALES”
Genere una variable que se llame “porcentaje” que indique la porcentaje de los votos que obtuvo el candidato en relación a los votos de su comuna