Contexto

El estudio de la participación política de los jóvenes es un aspecto clave para comprender la calidad de la democracia y el futuro de las instituciones. Factores como el interés por la política, la confianza en las instituciones y el nivel de satisfacción con la democracia permiten identificar las actitudes y percepciones de las nuevas generaciones frente al sistema político. Asimismo, variables como la educación, el uso de redes sociales y la ideología declarada influyen en la forma en que los jóvenes se informan y participan políticamente.

Variables Incluidas

Edad – Edad del encuestado (18–29 años).

Sexo – Masculino / Femenino.

Region – Región de residencia (Caribe, Andina, Pacífica, etc.).

Nivel_educativo – Máximo nivel educativo alcanzado (primaria, secundaria, técnica, universitaria).

Interes_politico – Escala (1–10) que mide el interés del joven por temas políticos.

Confianza_instituciones – Escala (1–10) que refleja el nivel de confianza en instituciones políticas.

Satisfaccion_democracia – Escala (1–10) que mide el grado de satisfacción con la democracia.

Ha_votado_ultimas – Sí / No, si votó en las últimas elecciones.

Afiliado_partido – Sí / No, si se encuentra afiliado a un partido político.

Uso_redes_info_politica – Uso de redes sociales como principal fuente de información política.

Ideologia_politica – Autoubicación ideológica (izquierda, centro, derecha, otro).

library(readxl)
library(ggplot2)
library(dplyr)
## 
## Attaching package: 'dplyr'
## The following objects are masked from 'package:stats':
## 
##     filter, lag
## The following objects are masked from 'package:base':
## 
##     intersect, setdiff, setequal, union
library(corrplot)
## corrplot 0.95 loaded
library(ggpubr)
library(ggpubr)

data <- read_excel("Base_Politica_Jovenes.xlsx", sheet = "Sheet1")
dim(data)
## [1] 100  11

En primer lugar se visualizan las dimensiones de la base de datos, la cuál consta de 100 observaciones con 11 variables.

Se procede a verificar cuanto es el porcentaje de NA de la data.

library(Amelia)
## Loading required package: Rcpp
## ## 
## ## Amelia II: Multiple Imputation
## ## (Version 1.8.3, built: 2024-11-07)
## ## Copyright (C) 2005-2025 James Honaker, Gary King and Matthew Blackwell
## ## Refer to http://gking.harvard.edu/amelia/ for more information
## ##
# Convertir a data frame clásico
data_df <- as.data.frame(data)

# Visualizar los NA
missmap(data_df)

De la figura anterior, podemos afirmar que la base de datos no se encuentra con valores faltantes.

summary(data)
##       edad           sexo              region          nivel_educativo   
##  Min.   :18.00   Length:100         Length:100         Length:100        
##  1st Qu.:28.75   Class :character   Class :character   Class :character  
##  Median :38.00   Mode  :character   Mode  :character   Mode  :character  
##  Mean   :38.93                                                           
##  3rd Qu.:51.00                                                           
##  Max.   :60.00                                                           
##  interes_politico confianza_instituciones ha_votado_ultimas  afiliado_partido  
##  Min.   : 1.00    Min.   : 1.00           Length:100         Length:100        
##  1st Qu.: 4.00    1st Qu.: 3.00           Class :character   Class :character  
##  Median : 5.50    Median : 6.00           Mode  :character   Mode  :character  
##  Mean   : 5.68    Mean   : 5.73                                                
##  3rd Qu.: 8.00    3rd Qu.: 8.00                                                
##  Max.   :10.00    Max.   :10.00                                                
##  uso_redes_info_politica ideologia_politica satisfaccion_democracia
##  Length:100              Length:100         Min.   : 1.00          
##  Class :character        Class :character   1st Qu.: 3.00          
##  Mode  :character        Mode  :character   Median : 5.00          
##                                             Mean   : 5.41          
##                                             3rd Qu.: 8.00          
##                                             Max.   :10.00

La muestra analizada presenta un rango de edad entre 18 y 60 años, con una media de 38.93 años y una mediana de 38 años. El interés político varía entre 1 y 10, con una media de 5.68 y una mediana de 5.50, donde el 25% de los participantes reportan valores inferiores a 4 y el 75% inferiores a 8. En cuanto a la confianza en las instituciones, se observa un rango de 1 a 10, con una media de 5.73 y una mediana de 6, mostrando una tendencia moderada hacia la confianza. La satisfacción con la democracia también se distribuye entre 1 y 10, con una media de 5.41 y una mediana de 5, lo que indica percepciones intermedias. Se recomienda analizar la relación entre interés político, confianza institucional y satisfacción con la democracia para comprender mejor las actitudes políticas de los participantes.

Análisis Univariado

ggplot(data, aes(x = edad)) +
  geom_histogram(binwidth = 5, fill = "skyblue", color = "black") +
  theme_minimal() +
  ggtitle("Distribución de Edad")

El histograma muestra que la mayoría de los participantes tienen entre 20 y 25 años. La distribución es relativamente uniforme dentro del rango (18–29), pero con ligera concentración en los primeros años de la veintena. Esto refleja que la muestra se centra en jóvenes adultos en etapa universitaria o de inicio laboral.

ggplot(data, aes(x = sexo, fill = sexo)) +
  geom_bar(color = "black") +
  theme_minimal() +
  ggtitle("Distribución por Sexo")

La barra muestra una participación equilibrada entre hombres y mujeres, con un 52% de hombres y 48% de mujeres. Esto asegura representatividad de género en la percepción política.

ggplot(data, aes(x = region)) +
  geom_bar(fill = "steelblue") +
  theme_minimal() +
  ggtitle("Distribución por Región")

Predomina la región Andina, seguida de Caribe; las demás regiones están menos representadas.

ggplot(data, aes(x = nivel_educativo)) +
  geom_bar(fill = "darkgreen") +
  theme_minimal() +
  ggtitle("Nivel Educativo de los Jóvenes")

La mayoría tiene educación secundaria o universitaria, lo que refleja un nivel formativo medio-alto en la muestra.

Análisis Bivariados

ggplot(data, aes(x = ideologia_politica, fill = ideologia_politica)) +
  geom_bar(color = "black") +
  theme_minimal() +
  ggtitle("Autoubicación Ideológica de los Jóvenes")

El gráfico de barras indica que la mayoría de los jóvenes se identifican con posturas de centro (45%), seguidos de una proporción importante que se ubica en la derecha (30%). La izquierda (20%) y otras posiciones (5%) aparecen menos representadas. Este patrón refleja que la juventud encuestada tiende a posicionarse en el centro político o hacia la derecha, lo que podría estar vinculado a sus contextos sociales y económicos.

ggplot(data, aes(x = edad, y = interes_politico)) +
  geom_point(color = "purple") +
  geom_smooth(method = "lm", se = FALSE, color = "red") +
  theme_minimal() +
  ggtitle("Relación entre Edad e Interés Político")
## `geom_smooth()` using formula = 'y ~ x'

El interés político aumenta levemente con la edad, aunque la relación es débil.

ggplot(data, aes(x = ideologia_politica, y = confianza_instituciones, fill = ideologia_politica)) +
  geom_boxplot() +
  theme_minimal() +
  ggtitle("Confianza en Instituciones según Ideología Política")

Los jóvenes de centro muestran mayor confianza en instituciones políticas, mientras que los de izquierda reflejan mayor escepticismo.

ggplot(data, aes(x = region, y = satisfaccion_democracia, fill = region)) +
  geom_boxplot() +
  theme_minimal() +
  ggtitle("Satisfacción con la Democracia por Región")

En la región Andina la satisfacción es mayor, mientras que en la Pacífica es más baja.

ggplot(data, aes(x = sexo, fill = ha_votado_ultimas)) +
  geom_bar(position = "fill") +
  theme_minimal() +
  ggtitle("Participación Electoral según Sexo")

Una proporción ligeramente mayor de hombres reporta haber votado en las últimas elecciones frente a las mujeres.

ggplot(data, aes(x = ideologia_politica, fill = afiliado_partido)) +
  geom_bar(position = "fill") +
  theme_minimal() +
  ggtitle("Afiliación a Partidos según Ideología")

La afiliación partidista es más común entre quienes se identifican con la derecha, mientras que en el centro predomina el no estar afiliado.

ggplot(data, aes(x = uso_redes_info_politica, y = interes_politico, fill = uso_redes_info_politica)) +
  geom_boxplot() +
  theme_minimal() +
  ggtitle("Interés Político según Uso de Redes Sociales")

Quienes usan redes sociales como principal fuente de información muestran un mayor nivel promedio de interés político que quienes no lo hacen.