In csmontt/plebiscito2020: Colección de funciones para scrapear http://www.servelelecciones.cl/

knitr::opts_chunk$set(
  collapse = TRUE,
  comment = "#>"
)

Accediendo a los datos

library(plebiscito2020)
library(dplyr)
head(constitucion)

Agregación datos usando dplyr

constitucion %>% group_by(opcion) %>% summarize(total_votos = sum(votos, na.rm = TRUE))

constitucion %>% group_by(nombre_comuna, opcion) %>% summarize(total_votos = sum(votos, na.rm = TRUE))

head(tipo_de_organo)

tipo_de_organo %>% group_by(opcion) %>% summarize(total_votos = sum(votos, na.rm = TRUE))

tipo_de_organo %>% group_by(nombre_comuna, opcion) %>% summarize(total_votos = sum(votos, na.rm = TRUE))

Construyendo la base de datos

circ_electoral_df <- circ_electoral("elecciones_constitucion")
head(circ_electoral_df)

mesas_df <- data.frame()
for(i in 1:nrow(circ_electoral_df)){ 
             res <- mesas_circ_electoral("elecciones_constitucion",
                                       circ_electoral_df[i,"id_circ_electoral"])
             mesas_df <- bind_rows(mesas_df, res)
        }
head(mesas_df)

resultado_mesa("elecciones_constitucion", 71030001)

resultado_mesa("elecciones_constitucion", 71030001)$data

resultado_mesa("elecciones_constitucion", 71030001)$resumen

resultado_mesa("elecciones_convencion", 71030001)$data
resultado_mesa("elecciones_convencion", 71030001)$resumen

Obtener el resultado de todas las mesas

sel_columnas <- function(resultado){
  sel <- resultado[, c("a","c")]
  names(sel) <- c("opcion", "votos")
  sel$votos <- as.numeric(sel$votos)
  return(sel)
}

id_mesas <- mesas$id_mesa
datos_mesas_con <-  data.frame()
datos_mesas_con_val <-  data.frame()
datos_mesas_org <-  data.frame()
datos_mesas_org_val <-  data.frame()
for(i in 1:5){   #solo las 5 priemras mesas
  mesa <- id_mesas[i]
  res_mesa  <- sel_columnas(resultado_mesa("elecciones_constitucion", mesa)$data)
  res_mesa <- cbind(id_mesa = mesa, res_mesa)
  datos_mesas_con <- bind_rows(datos_mesas_con, res_mesa)

  res_mesa  <- sel_columnas(resultado_mesa("elecciones_constitucion", mesa)$resumen)
  res_mesa <- cbind(id_mesa = mesa, res_mesa)
  datos_mesas_con_val <- bind_rows(datos_mesas_con_val, res_mesa)

  res_mesa  <- sel_columnas(resultado_mesa("elecciones_convencion", mesa)$data)
  res_mesa <- cbind(id_mesa = mesa, res_mesa)
  datos_mesas_org <- bind_rows(datos_mesas_org, res_mesa)

  res_mesa  <- sel_columnas(resultado_mesa("elecciones_convencion", mesa)$resumen)
  res_mesa <- cbind(id_mesa = mesa, res_mesa)
  datos_mesas_org_val <- bind_rows(datos_mesas_org_val, res_mesa)

}      
resultados <- list(apruebo_rechazo = datos_mesas_con,
                   apruebp_rechazo_val = datos_mesas_con_val,
                   tipo_organo = datos_mesas_org, 
                   tipo_organo_val = datos_mesas_org_val)

resultados$apruebo_rechazo
resultados$apruebp_rechazo_val
resultados$tipo_organo
resultados$tipo_organo_val

csmontt/plebiscito2020 documentation built on Feb. 4, 2021, 8:41 p.m.