# ============================================================
# Análisis de resultados presidenciales nacionales - EG 2026
# Fuente: Portal público de resultados de ONPE
# Archivo: presidente_nacional_2026.json
# ============================================================
library(jsonlite)
## Warning: package 'jsonlite' was built under R version 4.4.3
# 1. Leer archivo JSON descargado desde la pestaña Response de Chrome
datos_json <- fromJSON("presidente_nacional_2026.json")
# ===========================================================
# 2. Extraer la tabla principal
resultados_presidente <- datos_json$data
# 3. Ver la base
View(resultados_presidente)
# 4. Ordenar por votos válidos
resultados_order <- resultados_presidente[
order(-resultados_presidente$totalVotosValidos),]
vars_presidente <- resultados_order[
,
c(
"nombreAgrupacionPolitica",
"nombreCandidato",
"totalVotosValidos",
"porcentajeVotosValidos",
"porcentajeVotosEmitidos"
)
]
vars_presidente
## nombreAgrupacionPolitica
## 36 FUERZA POPULAR
## 35 JUNTOS POR EL PERÚ
## 34 RENOVACIÓN POPULAR
## 33 PARTIDO DEL BUEN GOBIERNO
## 32 PARTIDO CÍVICO OBRAS
## 31 PARTIDO PAÍS PARA TODOS
## 30 AHORA NACIÓN - AN
## 29 PRIMERO LA GENTE – COMUNIDAD, ECOLOGÍA, LIBERTAD Y PROGRESO
## 28 PARTIDO SICREO
## 27 PARTIDO FRENTE DE LA ESPERANZA 2021
## 26 PODEMOS PERÚ
## 25 PARTIDO POLÍTICO COOPERACIÓN POPULAR
## 24 ALIANZA PARA EL PROGRESO
## 23 PARTIDO APRISTA PERUANO
## 22 PARTIDO DEMOCRÁTICO SOMOS PERÚ
## 21 PARTIDO PATRIÓTICO DEL PERÚ
## 20 PARTIDO POLÍTICO PERÚ PRIMERO
## 19 ALIANZA ELECTORAL VENCEREMOS
## 18 UN CAMINO DIFERENTE
## 17 PARTIDO DEMÓCRATA UNIDO PERÚ
## 16 PARTIDO POLÍTICO NACIONAL PERÚ LIBRE
## 15 PARTIDO MORADO
## 14 UNIDAD NACIONAL
## 13 PROGRESEMOS
## 12 PARTIDO DEMÓCRATA VERDE
## 11 PARTIDO POLÍTICO INTEGRIDAD DEMOCRÁTICA
## 10 LIBERTAD POPULAR
## 9 AVANZA PAÍS - PARTIDO DE INTEGRACIÓN SOCIAL
## 8 PARTIDO POLÍTICO PERÚ ACCIÓN
## 7 FUERZA Y LIBERTAD
## 6 FE EN EL PERÚ
## 5 PARTIDO DEMOCRATICO FEDERAL
## 4 SALVEMOS AL PERÚ
## 3 PARTIDO POLÍTICO PRIN
## 2 PARTIDO DE LOS TRABAJADORES Y EMPRENDEDORES PTE - PERÚ
## 1 PERÚ MODERNO
## nombreCandidato totalVotosValidos
## 36 KEIKO SOFIA FUJIMORI HIGUCHI 2864878
## 35 ROBERTO HELBERT SANCHEZ PALOMINO 2001574
## 34 RAFAEL BERNARDO LÓPEZ ALIAGA CAZORLA 1986984
## 33 JORGE NIETO MONTESINOS 1831583
## 32 RICARDO PABLO BELMONT CASSINELLI 1692017
## 31 CARLOS GONSALO ALVAREZ LOAYZA 1322514
## 30 PABLO ALFONSO LOPEZ CHAU NAVA 1217112
## 29 MARIA SOLEDAD PEREZ TELLO 569489
## 28 ALFONSO CARLOS ESPA Y GARCES-ALVEAR 559134
## 27 LUIS FERNANDO OLIVERA VEGA 306935
## 26 JOSE LEON LUNA GALVEZ 265536
## 25 YONHY LESCANO ANCIETA 214240
## 24 CESAR ACUÑA PERALTA 191747
## 23 PITTER ENRIQUE VALDERRAMA PEÑA 160781
## 22 GEORGE PATRICK FORSYTH SOMMER 152576
## 21 HERBERT CALLER GUTIERREZ 143581
## 20 MARIO ENRIQUE VIZCARRA CORNEJO 143335
## 19 RONALD DARWIN ATENCIO SOTOMAYOR 139620
## 18 ROSARIO DEL PILAR FERNANDEZ BAZAN 127815
## 17 CHARLIE CARRASCO SALAZAR 118368
## 16 VLADIMIR ROY CERRON ROJAS 99657
## 15 MESIAS ANTONIO GUEVARA AMASIFUEN 81955
## 14 ROBERTO ENRIQUE CHIABRA LEON 67724
## 13 PAUL DAVIS JAIMES BLANCO 65692
## 12 ALEX GONZALES CASTILLO 63632
## 11 WOLFGANG MARIO GROZO COSTA 63546
## 10 RAFAEL JORGE BELAUNDE LLOSA 40715
## 9 JOSE DANIEL WILLIAMS ZAPATA 32429
## 8 FRANCISCO ERNESTO DIEZ-CANSECO TÁVARA 31566
## 7 FIORELLA GIANNINA MOLINELLI ARISTONDO 27144
## 6 ALVARO GONZALO PAZ DE LA BARRA FREIGEIRO 23230
## 5 ARMANDO JOAQUIN MASSE FERNANDEZ 21621
## 4 ANTONIO ORTIZ VILLANO 17552
## 3 WALTER GILMER CHIRINOS PURIZAGA 14477
## 2 NAPOLEON BECERRA GARCIA 11410
## 1 CARLOS ERNESTO JAICO CARRANZA 9770
## porcentajeVotosValidos porcentajeVotosEmitidos
## 36 17.174 14.271
## 35 11.998 9.970
## 34 11.911 9.898
## 33 10.979 9.124
## 32 10.143 8.428
## 31 7.928 6.588
## 30 7.296 6.063
## 29 3.414 2.837
## 28 3.352 2.785
## 27 1.840 1.529
## 26 1.592 1.323
## 25 1.284 1.067
## 24 1.149 0.955
## 23 0.964 0.801
## 22 0.915 0.760
## 21 0.861 0.715
## 20 0.859 0.714
## 19 0.837 0.695
## 18 0.766 0.637
## 17 0.710 0.590
## 16 0.597 0.496
## 15 0.491 0.408
## 14 0.406 0.337
## 13 0.394 0.327
## 12 0.381 0.317
## 11 0.381 0.317
## 10 0.244 0.203
## 9 0.194 0.162
## 8 0.189 0.157
## 7 0.163 0.135
## 6 0.139 0.116
## 5 0.130 0.108
## 4 0.105 0.087
## 3 0.087 0.072
## 2 0.068 0.057
## 1 0.059 0.049
names(vars_presidente) <- c(
"Organización Política",
"Candidatos",
"Votos válidos",
"Porcentaje de votos válidos",
"Porcentaje de votos emitidos")
# Crear tabla de frecuencias electorales
tabla_frecuencias <- vars_presidente
tabla_frecuencias$`Votos válidos acumulados` <-
cumsum(tabla_frecuencias$`Votos válidos`)
tabla_frecuencias$`Porcentaje de votos válidos acumulados` <-
cumsum(tabla_frecuencias$`Porcentaje de votos válidos`)
tabla_frecuencias$`Porcentaje de votos emitidos acumulados` <-
cumsum(tabla_frecuencias$`Porcentaje de votos emitidos`)
rownames(tabla_frecuencias) <- NULL
tabla_frecuencias_order <- tabla_frecuencias [ ,c (
"Organización Política",
"Candidatos",
"Votos válidos",
"Votos válidos acumulados",
"Porcentaje de votos válidos",
"Porcentaje de votos válidos acumulados",
"Porcentaje de votos emitidos",
"Porcentaje de votos emitidos acumulados")]