Actividad Decimas Compañeros Edwyn Turner, Florencia Olbertz
Primero debemos borrar todo el enviroment.
rm(list=ls())Cargar paquetes necesarios para trabajar.
library(rmarkdown)
library(data.table)Abrir base de datos de Resultados Electroes
re <- readRDS("ResultadosElectorales.rds")
re <- as.data.table(re)Elimine los indivduos cuyo nombre del candidato sea “VOTOS NULOS”, “TOTAL”, O “VOTOS EN BLANCO”
re <- re[Candidato != "VOTOS NULOS"]
re <- re[Candidato != "VOTOS EN BLANCO"]
re <- re[Candidato != "TOTAL"]Cuantos pactos hubo en total segun los datos?
np <- re[, .(.N), by= "Pacto"]
numero_pacto <- np[,sum(N)] # Esta es la suma de N de todos los pactos
#Hay 9 pactos distintos que se pueden ver en las 9 obs de np.
#Esto esta representado sin contar cualquier fila que tenga involcurado el VOTO NULO, TOTAL O VOTO EN BLANCOCuantas comunas en total hay en la base de datos? Cual fue la comuna con mas observaciónes?
comunas <- re[, .N, by = "Comuna"]
comunas <- comunas[order(N)]
length(comunas$N) #Esto nos entrega la cantidad de N que hay , y ahora imprimimos el numero que nos da## [1] 52#Ya que esta todo ordenado de menor a mayor
comunas[N[52]]## Comuna N
## 1: <NA> NAcomunas[length(N)] ## Comuna N
## 1: MAIPU 6510#Estas dos formas nos entregan los valores de la comuna con mas observaciónesGenere un objeto que contenga los nombres de los candidatos. Asegurese de que la base de datos no repitira el nombre de los candidatos.
#Generamos un objeto llamado candidatos
nombres_candidatos <- re[,.(Candidato)]
nombres_candidatos <- unique(nombres_candidatos)
#duplicated(nombres_candidatos)
#Creando el objeto, con unique hacemos que solamente incluya unoCuantas personas votaron en total? Cuales fueron las 2 coaliciones con mas votos? Cuantos votos obtuvieron?
rc <- re[,.(Votos =sum(Votos_TER,na.rm = T)), by = "Partido"]
rc <- rc[order(Votos)]
rc[,sum(Votos)]## [1] 1575267Cuantas personas votaron en total: 1575267 son la cantidad de votos. Cuales fueron las 2 coaliciones con mas votos: Cuantos votos obtuvieron: Union democrata independiente con 288829 Independiente con 449149
Cual fue el candidato independiente que obtuvo mas votos?
inde <- re[Partido == "INDEPENDIENTE", sum(Votos_TER, na.rm =T), by= Candidato]
inde <- inde[order(V1, decreasing = TRUE)]
inde## Candidato V1
## 1: RODOLFO CARTER FERNANDEZ 56341
## 2: CATHERINE BARRIGA GUERRA 35303
## 3: ANDRES ZARHI TROY 30933
## 4: CHRISTIAN VITTORI MUÑOZ 30615
## 5: MARIA JOSEFA ERRAZURIZ GUILISASTI 25425
## 6: JUAN ELVIRO CARRASCO CONTRERAS 17964
## 7: MAURO TAMAYO ROZAS 16262
## 8: GONZALO MONTOYA RIQUELME 14464
## 9: SERGIO ECHEVERRIA GARCIA 14281
## 10: RODOLFO TERRAZAS GONZALEZ 14070
## 11: JUAN ROZAS ROMERO 13010
## 12: CLAUDIA NATHALIE MIX JIMENEZ 11004
## 13: CARLOS WARD EDWARDS 10613
## 14: RENE DE LA VEGA FUENTES 8485
## 15: LORETO SEGUEL KING 7174
## 16: RICARDO FLORES GOMEZ 6796
## 17: JUAN PABLO BARROS BASSO 6633
## 18: DIEGO IGLESIAS CARRANZA 6599
## 19: WILLEM SCHUITEMAKER TRUFFELLO 6145
## 20: CAROLINA PLAZA GUZMAN 5944
## 21: FELIPE ARMIJO SANCHEZ 5702
## 22: ERASMO VALENZUELA SANTIBAÑEZ 5561
## 23: PEDRO DAVIS URZUA 5556
## 24: JUAN CARLOS SOTO CLIVIO 5451
## 25: TAMARA VALESKA NORAMBUENA ARANCIBIA 5164
## 26: ANTONIO GARRIDO MARDONES 5018
## 27: CARLOS INOSTROZA OJEDA 4737
## 28: ELIZABETH DEL CARMEN HENRIQUEZ LEIVA 4197
## 29: ALONSO MATIAS ROJAS LOPEZ 4021
## 30: ALFONSO RODRIGUEZ LABBE 3511
## 31: NELSON ORELLANA URZUA 3302
## 32: JAIME ACEITON VASQUEZ 3133
## 33: ALEJANDRO ZACUR PLOTZ 3102
## 34: RODRIGO GONZALEZ CERON 3050
## 35: JESSICA MUALIM FAJURI 2648
## 36: VIVIAN MAIRA SMITH 2626
## 37: DORIS DAYANNA GONZALEZ LEMUNAO 2608
## 38: ROBERTO TORRES HUERTA 2477
## 39: JOSE ANSELMO HIDALGO ZAMORA 2463
## 40: VICTOR MAURICIO URZUA MAULEN 2412
## 41: LUIS MOLINA GAETE 2352
## 42: SANDRA URIBE FLORES 2222
## 43: PABLO ESQUIVEL VASQUEZ 2174
## 44: MANUEL AHUMADA LILLO 1872
## 45: ALVARO TOBAR GOMEZ 1757
## 46: GUSTAVO VERGARA ROJAS 1677
## 47: ANTONIO RIVAS FIGUEROA 1605
## 48: ALICIA STUARDO MORALES 1547
## 49: HECTOR LEONARDO ARAVENA PEREZ 1483
## 50: VICTOR MANUEL MARTINEZ ÑANCO 1451
## 51: MAURICIO SANTANDER VIDELA 1296
## 52: LORENZO ANDRES MORALES CORTES 1221
## 53: CARLOS IBAÑEZ HORMAZABAL 1220
## 54: JOSE NUÑEZ GONZALEZ 1159
## 55: LORENZO MOLINA RAMIREZ 1034
## 56: RAFAEL PATRICIO WALKER SALGADO 1012
## 57: PEDRO NUÑEZ CERDA 943
## 58: RAUL ANTONIO ROJAS LEON 854
## 59: DANIEL ESTEBAN GODOY MENDEZ 771
## 60: GUILLERMO ARAVENA MONDACA 759
## 61: JORGE ALEJANDRO NUÑEZ SANDOVAL 734
## 62: ARIEL ALONSO ROMERO NUÑEZ 692
## 63: MARIA PAZ ESPINOZA CARVAJAL 636
## 64: HECTOR MANUEL AHUMADA ROJAS 621
## 65: PAULINA PALACIOS VERGARA 595
## 66: DANIEL RODRIGUEZ CLAVEROL 394
## 67: PIO ORTEGA REYES 384
## 68: JUAN CARLOS AGUIRRE LIZAMA 325
## 69: RICHARD LEIVA MENDOZA 274
## 70: OSVALDO JAVIER NAVARRO JAMETT 262
## 71: FRANCISCO PARRA PINTO 243
## 72: ESTEBAN CACERES OLAVE 169
## 73: JUAN CARLOS JIMENEZ SUFAN 169
## 74: ANTONIO ALIAGA LEIVA 162
## 75: MAXIMILIANO VARGAS LABRA 159
## 76: CAROLINA ARAOS ESCANDON 121
## Candidato V1Cuantas personas votaron en la comuna de las condes?
votos_en_las_condes <- re[Comuna == "LAS CONDES", .N]
votos_en_las_condes## [1] 2948Genere 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 <-re[,.N, by = .(Comuna, Votos_TER)]
##### Volver alfinalGenere 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 <- re[,. (VotosCandidato=sum(Votos_TER, na.rm = T)), by =.(Candidato, Comuna)]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.
DATOS_CANDIDATOS <- DATOS_CANDIDATOS[VotosCandidato == max(DATOS_CANDIDATOS$VotosCandidato), "mayoria":= 1]
DATOS_CANDIDATOS <- DATOS_CANDIDATOS[VotosCandidato != max(DATOS_CANDIDATOS$VotosCandidato), "mayoria":= 0]
DATOS_CANDIDATOSUtilice la función “merge” para pegar la información de la base “DATOS_CANDIDATOS” y “DATOS_COMUNALES”. Llame a esta base “DATOS_FINALES”
#DATOS_FINALES = merge(DATOS_CANDIDATOS, DATOS_COMUNALES, by.x = "Comuna", by.y = "Comuna" )