setwd("C:/Users/USUARIO/Downloads/Nueva carpeta (2)")
load("Latinobarometro_2023_Esp_Rdata_v1_0.rdata")

#1. Introduccion

Esta investigacion busca hacer un analisis sociologico de la conformidad de los habitantes de Venezuela respecto al mandato del gobierno en el pais durante el año 2023, y como este mandato influye en la desigualdad social que viven sus ciudanos. Para esto, se utilizaron 6 variables de la base de datos suministrada por latinobarometro respecto a la opinion publica de habitantes de todo latinoamerica respecto a aspectos como democracia, economia y estructura social de su pais. Estas variable son: Pais, clase social, Confianza en el gobierno, nivel educativo, aceptacion de desigualdad y confianza en el presidente. Datos cualitativos de tipo categoricas ordinales, con la excepcion de pais como variable categorica nominal. Estos datos nos permiten realizar un analisis profundo de aspectos sociodemograficos, asi como de las propias percepciones y opiniones sociopoliticas sobre el pais.

Este analisis resulta relevante porque se adentra en las opiniones del pueblo Venezolano respecto al mandato del pais durante el año 2023. Esto teniendo en cuenta que venezuela ha sido objeto de discucion y debate en torno a su posible caracter autoritario, a la vez que se cuestiona el liderazgo del entonces presidente Venezolano Nicolas Maduro, esto sin que se haya llegado ninguna resolucion actual. Y a pesar de que ninguna autoridad oficial le ha otorgado el titulo de dictadura, existen diferentes criterios de la literatura, autores, paises y politicos de renombre que clasifican a Venezuela como ejemplo de un regimen autoritario, ilegetimo y corrupto. Por ello, escuchar la propia voz del pueblo Venezolano puede brindar una idea de los conflictos politicos internos, la percepcion de sus habitantes respecto a este titulo y el grado de disconformidad que presentan ante el mandato de Nicolas maduro. Examinando a su vez la influencia de factores sociodemograficos que pueden tener un efecto en esta percepcion, esto teniendo en cuenta el alto grado de desigualdad social y economica presente en venezuela. Ademas de encontrar si existe una diferencia entre sectores de la poblacion que presentan mayores dificultades o aquellos que reciben beneficios sociales. Elementos que pueden ampliar el entendimiento del conflicto vivido en Venezuela a la vez que les da voz a sus habitantes respecto a la realidad experimentada en el pais.

2. Pregunta de investigacion

¿Cuál es la relación entre la confianza en el gobierno, la confianza en el presidente y la percepción de la desigualdad en Venezuela, y cómo varía según la clase social percibida y el nivel educativo?

library(dplyr)
## Warning: package 'dplyr' was built under R version 4.4.3
## 
## Adjuntando el paquete: 'dplyr'
## The following objects are masked from 'package:stats':
## 
##     filter, lag
## The following objects are masked from 'package:base':
## 
##     intersect, setdiff, setequal, union
datos <- Latinobarometro_2023_Esp_v1_0 %>%
  rename(
    clase_social_percibida = S2,
    confianza_gobierno = `P13ST.E`,
    confianza_presidente = `P13ST.I`,
    nivel_educativo = `REEEDUC.1`,
    educacion_padres = `REEDUC.2`,
    aceptacion_desigualdad = P61ST
  ) %>%
  mutate(
    clase_social_percibida = recode(as.character(clase_social_percibida),
      "1" = "Alta",
      "2" = "Media alta",
      "3" = "Media",
      "4" = "Media baja",
      "5" = "Baja",
      "8" = "No sabe",
      "0" = "No responde"
    ),

    confianza_gobierno = recode(as.character(confianza_gobierno),
      "1" = "Mucha",
      "2" = "Algo",
      "3" = "Poca",
      "4" = "Ninguna",
      "8" = "No sabe",
      "0" = "No responde"
    ),

    confianza_presidente = recode(as.character(confianza_presidente),
      "1" = "Mucha",
      "2" = "Algo",
      "3" = "Poca",
      "4" = "Ninguna",
      "8" = "No sabe",
      "0" = "No responde"
    ),

    nivel_educativo = recode(as.character(nivel_educativo),
      "1" = "Analfabeto",
      "2" = "Básica incompleta",
      "3" = "Básica completa",
      "4" = "Secundaria/media/técnica incompleta",
      "5" = "Secundaria/media/técnica completa",
      "6" = "Superior incompleta",
      "7" = "Superior completa",
      "0" = "Sin dato"
    ),

    educacion_padres = recode(as.character(educacion_padres),
      "1" = "Analfabeto",
      "2" = "Básica incompleta",
      "3" = "Básica completa",
      "4" = "Secundaria/media/técnica incompleta",
      "5" = "Secundaria/media/técnica completa",
      "6" = "Superior incompleta",
      "7" = "Superior completa",
      "0" = "Sin dato"
    ),

    aceptacion_desigualdad = recode(as.character(aceptacion_desigualdad),
      "1" = "1 - Completamente inaceptable",
      "2" = "2",
      "3" = "3",
      "4" = "4",
      "5" = "5",
      "6" = "6",
      "7" = "7",
      "8" = "8",
      "9" = "9",
      "10" = "10 - Completamente aceptable",
      "98" = "No sabe",
      "0" = "No responde"
    )
  )
datos <- datos %>%
  mutate(
    idenpa = recode(as.character(idenpa),
      "862" = "Venezuela"
    )
  )
base_venezuela <- datos %>%
  filter(idenpa == "Venezuela") %>%
  rename(pais = idenpa) %>%
  select(
    pais,
    clase_social_percibida,
    confianza_gobierno,
    confianza_presidente,
    nivel_educativo,
    educacion_padres,
    aceptacion_desigualdad
  )

base_venezuela <- base_venezuela %>%
  filter(
    !if_any(c(clase_social_percibida, confianza_gobierno, confianza_presidente,
              nivel_educativo, educacion_padres, aceptacion_desigualdad),
            ~ . %in% c(-1, -2))
  )

3. Justificacion

Este analisis sociopolitico y demografico es fundamental debido a que permite un acercamiento imparcial del estado social y politico de la venezuela del año 2023, enfocandose principalmente en las opiniones, pensamientos y experiencia del pueblo venezolano respecto a las desigualdades sociales y como estas afectan a la vision del mandato del gobierno de Nicolas Maduro. Elementos que pueden aportar al debate respecto al papel de venezuela como regimen autoritario e ilegitimo, mientras utiliza como datos centrales la propia experiencia del pueblo Venezolano para darles voz en la discusion y examinar el nivel de conformidad que tienen respecto a las distintas politicas determinadas por el gobierno Venezolano.

Asi mismo, esta investigacion busca profundizar en la opinion publica de los habitantes respecto a Nicolas Maduro, figura polemica por sus declaraciones, mandatos y acusaciones que lo llevaron a ser detenido por la autoridades estado unidenses en un proceso penal por cargos de presuntos crimenes graves. Por lo que la oportunidad de no solo examinar la opinion de los ciudadanos Venezolanos no solo del gobierno del pais, sino tambien de su presidente, y su grado de aceptacion, puede ser informacion valiosa que aporte un indicio al entendimiento de la reaccion de distintos sectores de Venezuela sobre las acciones de estados unidos, esto teniendo en cuenta que no es un elemento conclusivo por la epoca en la que fue tomada la encuesta y unicamente puede dar indicios que deben ser investigados con mas detenimiento en una encuesta actual. Todo esto mientras se toman elementos demograficos como la educacion y la clase social para analizar las posibles influencias sociales en las posturas de los habitantes y examinar si existe una polarizacion de opiniones en el pais a causa de la desigualdad social, economica y politica.

4. Desarrollo – Análisis Exploratorio

library(dplyr)
library(knitr)
library(kableExtra)
## 
## Adjuntando el paquete: 'kableExtra'
## The following object is masked from 'package:dplyr':
## 
##     group_rows
library(ggplot2)

Confianza en el gobierno

# Confianza en el gobierno
table(base_venezuela$confianza_gobierno, useNA = "always")
## 
##    Algo   Mucha Ninguna    Poca    <NA> 
##     134     100     514     349       0
prop.table(table(base_venezuela$confianza_gobierno, useNA = "always"))
## 
##      Algo     Mucha   Ninguna      Poca      <NA> 
## 0.1221513 0.0911577 0.4685506 0.3181404 0.0000000

Interpretacion:

Estos datos confirman que la desconfianza en el gobierno es predominante. La categoría con mayor peso es “ninguna” confianza, con 502 personas (45,8%), seguida de “poca” confianza, con 276 personas (25,2%). En cambio, “algo” y “mucha” confianza presentan proporciones mucho menores, con 14,9% y 14,2%, respectivamente. En conjunto, esto muestra que más de dos tercios de la muestra se ubican en niveles bajos de confianza hacia el gobierno.

Confianza en el presidente

# Confianza en el presidente
table(base_venezuela$confianza_presidente, useNA = "always")
## 
##    Algo   Mucha Ninguna    Poca    <NA> 
##     163     156     502     276       0
prop.table(table(base_venezuela$confianza_presidente, useNA = "always"))
## 
##      Algo     Mucha   Ninguna      Poca      <NA> 
## 0.1485871 0.1422060 0.4576117 0.2515953 0.0000000

Interpretacion:

Los datos muestran que la confianza en el presidente es mayoritariamente baja. La categoría más frecuente es “ninguna” confianza, con 502 personas (45,8%), seguida de “poca” confianza, con 276 personas (25,2%). Por su parte, las opciones “algo” y “mucha” confianza registran proporciones bastante menores, con 163 casos (14,9%) y 156 casos (14,2%), respectivamente. En síntesis, la mayoría de la muestra expresa una percepción de escasa o nula confianza en el presidente.

Confianza en el gobierno por clase social percibida:

confianza_gobierno_tabla <- base_venezuela %>% 
  count(clase_social_percibida, confianza_gobierno) %>% 
  group_by(clase_social_percibida) %>% 
  mutate(porcentaje = n / sum(n) * 100)

confianza_gobierno_tabla %>%
  kable(
    caption = "Tabla 1. Confianza en el gobierno por clase social percibida",
    digits = 2,
    col.names = c("Clase social percibida", "Confianza en el gobierno", "Frecuencia", "%"),
    format = "html"
  ) %>%
  kable_styling(full_width = FALSE) %>%
  row_spec(0, background = "#1F4E79", color = "white", bold = TRUE)
Tabla 1. Confianza en el gobierno por clase social percibida
Clase social percibida Confianza en el gobierno Frecuencia %
Alta Algo 6 12.24
Alta Mucha 13 26.53
Alta Ninguna 19 38.78
Alta Poca 11 22.45
Baja Algo 30 10.71
Baja Mucha 27 9.64
Baja Ninguna 138 49.29
Baja Poca 85 30.36
Media Algo 43 11.08
Media Mucha 31 7.99
Media Ninguna 178 45.88
Media Poca 136 35.05
Media alta Algo 13 17.57
Media alta Mucha 8 10.81
Media alta Ninguna 22 29.73
Media alta Poca 31 41.89
Media baja Algo 42 13.73
Media baja Mucha 21 6.86
Media baja Ninguna 157 51.31
Media baja Poca 86 28.10

Interpretacion:

En la tabla 1 podemos encontrar que, en casi todos los grupos de clase social percibida, la categoria con mayor frecuencia es la de “ninguna” confianza en el gobierno, lo que evidencia una clara y significativa tendencia general de la desconfianza del pueblo de Venezuela sobre su gobierno y el manejo que este le esta dando al pais, esto se reafirma con el hecho de que la segunda variable que aparezca con frecuencia en la tabla es la de “poca” confianza en el gobierno, lo que demuestra que la disconformidad del pueblo Venezolano es considerable independiente de la clase social. Esta postura es especialmente marcada en la clase medio baja (51.31%) y en la clase baja (49.29%), mientras que en la clase alta de igual forma predomina “ninguna” pero en menor grado, con un (38.78%). Por otro lado, la clase alta presenta el porcentaje mas elevado de mucha confianza (26.53%), en contraste con la clase media baja (6.86%) y la media (7.99%), a la vez que la clase social medio alta tiene una frecuencia mayor de poca con “41.89”. Estos resultados sugieren que la percepcion de clase social inlfuye en la evaluacion del gobierno a pesar de que la constante sea hacia una negativa, sin embargo los sectores socialmente mas vulnerables tienden a expresar mayores niveles de rechazo o inconforimidad frente a este modelo de gobierno

Confianza en el presidente por nivel educativo:

confianza_presidente_tabla <- base_venezuela %>% 
  count(nivel_educativo, confianza_presidente) %>% 
  group_by(nivel_educativo) %>% 
  mutate(porcentaje = n / sum(n) * 100)

confianza_presidente_tabla %>%
  kable(
    caption = "Tabla 2. Confianza en el presidente por nivel educativo",
    digits = 2,
    col.names = c("Nivel educativo", "Confianza en el presidente", "Frecuencia", "%"),
    format = "html"
  ) %>%
  kable_styling(full_width = FALSE) %>%
  row_spec(0, background = "#8B0000", color = "white", bold = TRUE)
Tabla 2. Confianza en el presidente por nivel educativo
Nivel educativo Confianza en el presidente Frecuencia %
Analfabeto Algo 5 16.67
Analfabeto Mucha 3 10.00
Analfabeto Ninguna 11 36.67
Analfabeto Poca 11 36.67
Básica completa Algo 14 11.02
Básica completa Mucha 28 22.05
Básica completa Ninguna 50 39.37
Básica completa Poca 35 27.56
Básica incompleta Algo 3 4.62
Básica incompleta Mucha 23 35.38
Básica incompleta Ninguna 25 38.46
Básica incompleta Poca 14 21.54
Secundaria/media/técnica completa Algo 55 15.94
Secundaria/media/técnica completa Mucha 39 11.30
Secundaria/media/técnica completa Ninguna 159 46.09
Secundaria/media/técnica completa Poca 92 26.67
Secundaria/media/técnica incompleta Algo 45 18.99
Secundaria/media/técnica incompleta Mucha 37 15.61
Secundaria/media/técnica incompleta Ninguna 101 42.62
Secundaria/media/técnica incompleta Poca 54 22.78
Superior completa Algo 26 13.20
Superior completa Mucha 20 10.15
Superior completa Ninguna 110 55.84
Superior completa Poca 41 20.81
Superior incompleta Algo 15 15.62
Superior incompleta Mucha 6 6.25
Superior incompleta Ninguna 46 47.92
Superior incompleta Poca 29 30.21

Interpretacion:

La tabla 2 demuestra que la desconfianza hacia el presidente es predominante en casi todos los niveles educativos, con “ninguna” confianza como la categoria mas frecuente en la mayoria de grupos de la variable, desde aquellos con capacidades analfabetas como aquellos con estudios superiores completos. Este patron alcanza su punto mas alto en aquellos que poseen una} educacion superior completa con (55.84%), seguidos de quienes poseen una educacion superior incompleta (47.92%) y secundaria/media/ tecnica completa con (46.09%), demostrando una prevalencia de entre mayor educacion, una mayor desconfianza al presidente. Sin embargo, en el grupo de basica incompleta se puede obsevar un comportamiento distinto, ya que alli la categoria de mucha confianza alcanza un porcentaje considerable de (35.38%), el cual se acerca a la categoria de ninguna con (38.46%), lo que habla de una mayor division interna en este nivel educativo coherente con la capacidad de leer pero un descuido en el reforzamiento de razonamiento critico. En terminos generales se puede encontrar un consenso entre los distintos niveles educativos respecto a la valoracion que estos le brindan al presidente, demostrando que su figura es un tema polemico y que es objeto de criticas, algo que se puede observar con mas prominencia en aquellos miembros de la poblacion que alcanzan estudios superiores y quienes presentan los niveles mas bajos de aprobacion respecto a sus politicas representado en la baja confianza, aspecto coherente con el enfasis que es puesto a la reflexion critica en los estudios avanzados y les brinda mayores herramientas para identificar elementos de manipulacion y engaño politico.

Aceptacion desigualdad por clase social percibida

aceptacion_desigualdad_tabla <- base_venezuela %>% 
  count(clase_social_percibida, aceptacion_desigualdad) %>% 
  group_by(clase_social_percibida) %>% 
  mutate(porcentaje = n / sum(n) * 100)

aceptacion_desigualdad_tabla %>%
  kable(
    caption = "Tabla 3. Aceptación de la desigualdad por clase social percibida",
    digits = 2,
    col.names = c("Clase social percibida", "Aceptación de la desigualdad", "Frecuencia", "%"),
    format = "html"
  ) %>%
  kable_styling(full_width = FALSE) %>%
  row_spec(0, background = "#2E8B57", color = "white", bold = TRUE)
Tabla 3. Aceptación de la desigualdad por clase social percibida
Clase social percibida Aceptación de la desigualdad Frecuencia %
Alta 1 - Completamente inaceptable 9 18.37
Alta 10 - Completamente aceptable 16 32.65
Alta 2 1 2.04
Alta 3 2 4.08
Alta 4 1 2.04
Alta 5 7 14.29
Alta 6 4 8.16
Alta 7 3 6.12
Alta 8 6 12.24
Baja 1 - Completamente inaceptable 73 26.07
Baja 10 - Completamente aceptable 48 17.14
Baja 2 8 2.86
Baja 3 18 6.43
Baja 4 19 6.79
Baja 5 63 22.50
Baja 6 20 7.14
Baja 7 12 4.29
Baja 8 14 5.00
Baja 9 5 1.79
Media 1 - Completamente inaceptable 62 15.98
Media 10 - Completamente aceptable 51 13.14
Media 2 15 3.87
Media 3 29 7.47
Media 4 33 8.51
Media 5 87 22.42
Media 6 39 10.05
Media 7 33 8.51
Media 8 22 5.67
Media 9 17 4.38
Media alta 1 - Completamente inaceptable 12 16.22
Media alta 10 - Completamente aceptable 16 21.62
Media alta 2 4 5.41
Media alta 3 3 4.05
Media alta 4 4 5.41
Media alta 5 13 17.57
Media alta 6 6 8.11
Media alta 7 5 6.76
Media alta 8 10 13.51
Media alta 9 1 1.35
Media baja 1 - Completamente inaceptable 64 20.92
Media baja 10 - Completamente aceptable 28 9.15
Media baja 2 24 7.84
Media baja 3 28 9.15
Media baja 4 22 7.19
Media baja 5 67 21.90
Media baja 6 26 8.50
Media baja 7 20 6.54
Media baja 8 17 5.56
Media baja 9 10 3.27

Interpretacion:

En la tabla 3 se puede encontrar que la aceptacion de la desigualdad varia de forma importante segun la clase social percibida, demostrando una mayores diferencias en los datos en lo que respecta a las tablas anteriores. En la clase alta la opcion mas frecuente es “10 - completamente aceptable” (32.65%), lo que sugiere una clara polarizacion y fragmentacion social donde aquellos de clase alta son concientes de los beneficios que poseen y quieren permanecer con estos mientras que normalizan la desigualdad socia. En contraste, en la clase baja la categoria mas frecuente es aquella con “1 - completamente inaceptable” (26.07%), mientras que la categoria de la posicion intermedia 5 (22.50%) tambien destaca. Lo que demuestra una percepcion opuesta del funcionamiento del pais y de los beneficios que se les son otorgados, demostrando que existe una mayor discorformidad y un claro enfasis en remarcar esta diferencia y lo mucho que afecta a ese sector de la poblacion, mientras que demuestra una postura menos homogenea. En la clase media baja, la desigualdad tambien tiende a ser menos aceptada, con mayor presencia de respuestas en los niveles bajos y medios de la escala. En conjunto, los resultados demuestran que existe una diferencia considerable de los beneficios que se les son brindados a las distintas clases sociales, esto representado en el nivel de acuerdo con la desigualdad. Ademas, podemos encontrar como el nivel de critica a esta varia segun el efecto que le trae a la clase social

Aceptacion desigualdad por confianza en el gobierno

aceptacion_desigualdad_gobierno_tabla <- base_venezuela %>% 
  count(confianza_gobierno, aceptacion_desigualdad) %>% 
  group_by(confianza_gobierno) %>% 
  mutate(porcentaje = n / sum(n) * 100)

aceptacion_desigualdad_gobierno_tabla %>%
  kable(
    caption = "Tabla 4. Aceptación de la desigualdad según confianza en el gobierno",
    digits = 2,
    col.names = c("Confianza en el gobierno", "Aceptación de la desigualdad", "Frecuencia", "%"),
    format = "html"
  ) %>%
  kable_styling(full_width = FALSE) %>%
  row_spec(0, background = "#6A0DAD", color = "white", bold = TRUE)
Tabla 4. Aceptación de la desigualdad según confianza en el gobierno
Confianza en el gobierno Aceptación de la desigualdad Frecuencia %
Algo 1 - Completamente inaceptable 14 10.45
Algo 10 - Completamente aceptable 14 10.45
Algo 2 6 4.48
Algo 3 13 9.70
Algo 4 5 3.73
Algo 5 39 29.10
Algo 6 17 12.69
Algo 7 12 8.96
Algo 8 10 7.46
Algo 9 4 2.99
Mucha 1 - Completamente inaceptable 21 21.00
Mucha 10 - Completamente aceptable 31 31.00
Mucha 2 3 3.00
Mucha 3 4 4.00
Mucha 4 6 6.00
Mucha 5 12 12.00
Mucha 6 6 6.00
Mucha 7 5 5.00
Mucha 8 8 8.00
Mucha 9 4 4.00
Ninguna 1 - Completamente inaceptable 135 26.26
Ninguna 10 - Completamente aceptable 69 13.42
Ninguna 2 29 5.64
Ninguna 3 39 7.59
Ninguna 4 36 7.00
Ninguna 5 105 20.43
Ninguna 6 34 6.61
Ninguna 7 24 4.67
Ninguna 8 26 5.06
Ninguna 9 17 3.31
Poca 1 - Completamente inaceptable 50 14.33
Poca 10 - Completamente aceptable 45 12.89
Poca 2 14 4.01
Poca 3 24 6.88
Poca 4 32 9.17
Poca 5 81 23.21
Poca 6 38 10.89
Poca 7 32 9.17
Poca 8 25 7.16
Poca 9 8 2.29

Interpretacion:

La tabla 4 señala una relacion interesante entre la confianza en el gobierno y la aceptacion de la desigualdad. En donde podemos observar que entre quienes reportan mucha confianza en el gobierno, el porcentaje mas alto se ubica en “10 - completamente aceptable” (31.00%), lo que sugiere una mayor tendencia a aceptar la desigualdad dentro de aquellos grupos que se alinean con la institucion que permite que se de la desigualdad.Por el contrario, entre quienes afirman tener ninguna confianza en el gobierno, predomina una vision mas critica tanto del orden politico como de la desigualad social que se hace visible en los resultados obtenidos con “1 - completamente inaceptable” (26.26%),como mayor frecuencia. En los grupos de algo y poca confianza, predominan valores intermedios, especialmente la categoria 5, lo que plantea la posibilidad de posiciones menos extremas. Teniendo en cuenta estos datos, se puede encontrar que una mayor confianza en el gobierno se asocia con una mayor aceptacion de la desigualdad, mientras que la desconfianza politica trae consigo un mayor grado de disconformidad respecto a la desigualdad politica vivida en el pais, que a su vez se vincula con posturas mas criticas respecto a la realidad del pais.

Confianza en el presidente por clase social percibida

confianza_presidente_clase_tabla <- base_venezuela %>% 
  count(clase_social_percibida, confianza_presidente) %>% 
  group_by(clase_social_percibida) %>% 
  mutate(porcentaje = n / sum(n) * 100)

confianza_presidente_clase_tabla %>%
  kable(
    caption = "Tabla 5. Confianza en el presidente por clase social percibida",
    digits = 2,
    col.names = c("Clase social percibida", "Confianza en el presidente", "Frecuencia", "%"),
    format = "html"
  ) %>%
  kable_styling(full_width = FALSE) %>%
  row_spec(0, background = "#B8860B", color = "white", bold = TRUE)
Tabla 5. Confianza en el presidente por clase social percibida
Clase social percibida Confianza en el presidente Frecuencia %
Alta Algo 6 12.24
Alta Mucha 15 30.61
Alta Ninguna 17 34.69
Alta Poca 11 22.45
Baja Algo 30 10.71
Baja Mucha 45 16.07
Baja Ninguna 135 48.21
Baja Poca 70 25.00
Media Algo 64 16.49
Media Mucha 47 12.11
Media Ninguna 176 45.36
Media Poca 101 26.03
Media alta Algo 17 22.97
Media alta Mucha 16 21.62
Media alta Ninguna 24 32.43
Media alta Poca 17 22.97
Media baja Algo 46 15.03
Media baja Mucha 33 10.78
Media baja Ninguna 150 49.02
Media baja Poca 77 25.16

Interpretacion:

En la tabla 5 se evidencia que la falta de confianza en el presidente predomina en todos los grupos de clase social percibida, siendo la categoria “ninguna” la mas frecuente de cada una de las clases, demostrando como la desconfianza y los juicios valorativos negativos son el dato mas frecuente que se tiene sobre Nicolas Maduro. Esta ausencia de confianza es mas alta en la clase medio baja (49.02%), la clase baja (48.21%) y la clase media (45.36%), resultados que refuerzan la idea de una percepcion critica hacia la figura presidencial en amplios sectores de la poblacion, hasta el punto de consistir en mas de la mitad de los resultados en varias de las clases sociales. No obstante y opuesto a las clases sociales anteriormente nombradas, la clase alta presenta el porcentaje mas elevado de mucha confianza (30.61), mientras que en la clase media alta hay una distribucion mas equilibrada entre “algo”, “mucha” y “poca” confianza. Aspectos que confirman una diferencia en los posibles efectos de las politicas dictaminadas por maduro en los habitantes. Esto sugiere que los sectores mas bajos y medios manifiestan un mayor nivel de rechazo, mientras que los grupos mas altos presentan una postura relativamente favorable, aunque siga predominando una vision mas critica sobre el presidente donde el dato mas frecuente sea la desconfianza

Aceptacion desigualdad por nivel educativo

aceptacion_desigualdad_educacion_tabla <- base_venezuela %>% 
  count(nivel_educativo, aceptacion_desigualdad) %>% 
  group_by(nivel_educativo) %>% 
  mutate(porcentaje = n / sum(n) * 100)

aceptacion_desigualdad_educacion_tabla %>%
  kable(
    caption = "Tabla 6. Aceptación de la desigualdad por nivel educativo",
    digits = 2,
    col.names = c("Nivel educativo", "Aceptación de la desigualdad", "Frecuencia", "%"),
    format = "html"
  ) %>%
  kable_styling(full_width = FALSE) %>%
  row_spec(0, background = "#C71585", color = "white", bold = TRUE)
Tabla 6. Aceptación de la desigualdad por nivel educativo
Nivel educativo Aceptación de la desigualdad Frecuencia %
Analfabeto 1 - Completamente inaceptable 6 20.00
Analfabeto 10 - Completamente aceptable 7 23.33
Analfabeto 2 2 6.67
Analfabeto 3 2 6.67
Analfabeto 4 2 6.67
Analfabeto 5 6 20.00
Analfabeto 6 2 6.67
Analfabeto 8 3 10.00
Básica completa 1 - Completamente inaceptable 29 22.83
Básica completa 10 - Completamente aceptable 30 23.62
Básica completa 2 5 3.94
Básica completa 3 4 3.15
Básica completa 4 9 7.09
Básica completa 5 23 18.11
Básica completa 6 9 7.09
Básica completa 7 6 4.72
Básica completa 8 8 6.30
Básica completa 9 4 3.15
Básica incompleta 1 - Completamente inaceptable 9 13.85
Básica incompleta 10 - Completamente aceptable 25 38.46
Básica incompleta 2 4 6.15
Básica incompleta 3 4 6.15
Básica incompleta 4 1 1.54
Básica incompleta 5 11 16.92
Básica incompleta 6 3 4.62
Básica incompleta 7 4 6.15
Básica incompleta 8 2 3.08
Básica incompleta 9 2 3.08
Secundaria/media/técnica completa 1 - Completamente inaceptable 64 18.55
Secundaria/media/técnica completa 10 - Completamente aceptable 44 12.75
Secundaria/media/técnica completa 2 14 4.06
Secundaria/media/técnica completa 3 24 6.96
Secundaria/media/técnica completa 4 29 8.41
Secundaria/media/técnica completa 5 84 24.35
Secundaria/media/técnica completa 6 32 9.28
Secundaria/media/técnica completa 7 23 6.67
Secundaria/media/técnica completa 8 22 6.38
Secundaria/media/técnica completa 9 9 2.61
Secundaria/media/técnica incompleta 1 - Completamente inaceptable 44 18.57
Secundaria/media/técnica incompleta 10 - Completamente aceptable 35 14.77
Secundaria/media/técnica incompleta 2 5 2.11
Secundaria/media/técnica incompleta 3 17 7.17
Secundaria/media/técnica incompleta 4 17 7.17
Secundaria/media/técnica incompleta 5 50 21.10
Secundaria/media/técnica incompleta 6 22 9.28
Secundaria/media/técnica incompleta 7 21 8.86
Secundaria/media/técnica incompleta 8 17 7.17
Secundaria/media/técnica incompleta 9 9 3.80
Superior completa 1 - Completamente inaceptable 44 22.34
Superior completa 10 - Completamente aceptable 12 6.09
Superior completa 2 14 7.11
Superior completa 3 22 11.17
Superior completa 4 11 5.58
Superior completa 5 43 21.83
Superior completa 6 19 9.64
Superior completa 7 14 7.11
Superior completa 8 10 5.08
Superior completa 9 8 4.06
Superior incompleta 1 - Completamente inaceptable 24 25.00
Superior incompleta 10 - Completamente aceptable 6 6.25
Superior incompleta 2 8 8.33
Superior incompleta 3 7 7.29
Superior incompleta 4 10 10.42
Superior incompleta 5 20 20.83
Superior incompleta 6 8 8.33
Superior incompleta 7 5 5.21
Superior incompleta 8 7 7.29
Superior incompleta 9 1 1.04

Interpretacion:

La tabla 6 muestra que la aceptacion de la desigualdad tambien presenta diferencias segun el nivel educativo. En los niveles de basica incompleta (38.46%) y analfabeto (23.33%), la categoria “10 - completamente aceptable” alcanza porcentajes altos, lo que plantea una mayor disposicion a considerar aceptable la desigualdad. En cambio, en los niveles de superior completa (22.34%) y superior incompleta (25.00%) predomina la categoria “1 - completamente inaceptable”, mientras que la aceptacion total de la desigualdad cae a 6.09% y 6.25%, respectivamente. Ademas, en varios niveles educativos intermedios sobresalen respuestas en el valor 5, lo que indica posiciones moderadas o ambivalentes. En conjunto, estos resultados sugieren que un mayor nivel educativo se asocia con una menor aceptacion a la desigualdad, lo que crea un importante contraste respecto a la clase social percibida, donde entre mayor fuera la clase social, mayor era la aceptacion a la desigualdad, demostrando que no necesariamente por pertenecer a una clase social alta, se accede a un nivel educativo avanzado y que este beneficio no altera considerablemente la desigualdad, y en los niveles educativos mas bajos hay una mayor tendencia a normalizar o legitimarla.

Graficos:

ggplot(base_venezuela, aes(x = nivel_educativo, fill = confianza_presidente)) +
  geom_bar(position = "fill") +
  labs(
    title = "Proporción de confianza en el presidente según nivel educativo",
    x = "Nivel educativo",
    y = "Proporción",
    fill = "Confianza en el presidente"
  ) +
  theme_minimal() +
  theme(axis.text.x = element_text(angle = 45, hjust = 1))

Interpretacion:

El gráfico apoya y visibiliza los resultados de la tabla 2, reforzando la idea de que en todos los niveles educativos, predomina la desconfianza hacia el presidente, especialmente en las categorías de “ninguna” y “poca” confianza. La “mucha” confianza aparece en proporciones menores y tiende a concentrarse un poco más en quienes tienen básica incompleta, mientras que en los niveles de educación superior es menos frecuente. Esto parece indicar que la confianza en el presidente es baja en todos los grupos educativos, aunque con pequeñas variaciones según el nivel de escolaridad.

ggplot(base_venezuela, aes(x = clase_social_percibida, fill = confianza_gobierno)) +
  geom_bar(position = "fill") +
  labs(
    title = "Proporción de confianza en el gobierno según clase social percibida",
    x = "Clase social percibida",
    y = "Proporción",
    fill = "Confianza en el gobierno"
  ) +
  theme_minimal()

Interpretacion:

El gráfico muestra que, en todas las clases sociales percibidas, predominan las respuestas de “ninguna” y “poca” confianza en el gobierno, lo que indica un nivel general de baja confianza. La categoría “ninguna” confianza es especialmente alta en la clase alta y media baja, mientras que la “mucha” confianza sigue siendo minoritaria en todos los grupos, especialmente en aquellos de clase alta o media alta. En conjunto, puede interpretarse que la percepción de clase social no modifica de forma drástica la tendencia general, ya que en todos los casos sobresale la desconfianza hacia el gobierno. Este gráfico comprueba los resultados e interpretaciones obtenidas en la tabla 1.

tabla_desigualdad_clase <- base_venezuela %>%
  count(clase_social_percibida, aceptacion_desigualdad)

ggplot(tabla_desigualdad_clase, aes(x = clase_social_percibida, y = n, fill = aceptacion_desigualdad)) +
  geom_col(position = "fill") +
  labs(
    title = "Proporción de aceptación de la desigualdad según clase social percibida",
    x = "Clase social percibida",
    y = "Proporción",
    fill = "Aceptación de la desigualdad"
  ) +
  theme_minimal()

Interpretacion:

El gráfico muestra que la aceptación de la desigualdad se distribuye de forma heterogénea entre las distintas clases sociales percibidas, sin una tendencia completamente uniforme. Aunque en todos los grupos aparecen tanto posturas de rechazo como de aceptación, destacan varias proporciones intermedias, lo que sugiere opiniones divididas frente a la desigualdad. Sin embargo, en clases como la alta y la media alta se observan porcentajes algo mayores en niveles altos de aceptación, mientras que en los demás grupos la distribución luce más equilibrada entre posiciones de rechazo, neutralidad y aceptación. Lo que refuerza los resultados obtenidos en las tablas, dando cuenta de la desigualdad experimentada en la percepcion de los ciudadanos Venezolanos segun la clase social. Ademas, el hecho de que los ciudadanos de clase alta sean aquellos que no presentan discorformidad, muestran que los beneficios sociales y politicos tienen un enfasis en una clase social especifico.

ggplot(base_venezuela, aes(x = confianza_gobierno)) +
  geom_bar(fill = "steelblue") +
  labs(
    title = "Distribución de la confianza en el gobierno en Venezuela (2023)",
    x = "Confianza en el gobierno",
    y = "Frecuencia"
  ) +
  theme_minimal()

Interpretacion:

El grafico evidencia que en Venezuela, durante 2023, predomino la desconfianza en el gobierno, ya que la categoria “ninguna” concentra la mayor frecuencia, seguida por “poca” confianza. En contraste, las opciones “algo” y especialmente “mucha” presentan valores considerablemente menores. En conjunto, esto sugiere que la percepción general de la población frente al gobierno fue mayoritariamente negativa o de baja confianza. Lo que da evidencia de la desconfianza generalizada que tiene venezuela respecto a los diferentes aspectos del gobierno. Hasta el punto que son pocos los datos que demuestran algun grado de conformidad y confianza con el gobierno.

ggplot(base_venezuela, aes(x = confianza_gobierno, fill = aceptacion_desigualdad)) +
  geom_bar(position = "fill") +
  labs(
    title = "Proporción de aceptación de la desigualdad según confianza en el gobierno",
    x = "Confianza en el gobierno",
    y = "Proporción",
    fill = "Aceptación de la desigualdad"
  ) +
  theme_minimal()

Interpretacion:

El gráfico parece señalar que la aceptación de la desigualdad varía según el nivel de confianza en el gobierno, a pesar de que en todos los grupos aparecen posturas diversas. Entre quienes tienen mucha confianza en el gobierno, se observan proporciones relativamente más altas en niveles elevados de aceptación de la desigualdad, mientras que entre quienes no tienen ninguna confianza destacan más las posiciones de rechazo o las respuestas intermedias. En general, puede inferirse que una mayor confianza en el gobierno tiende a asociarse con una mayor aceptación de la desigualdad, aunque la relación no es completamente uniforme.

Hallazgos y conclusiones

El primer hallazgo que podemos encontrar gracias al analisis descriptivo de la variables, es la forma en la que efectivamente existe una relacion entre la confianza en el gobierno, el presidente y la desigualdad social percibida. En primer lugar podemos encontrar que aquellos encuestados que marcaron tener algo o mucha confianza en el gobierno o presidente, consideran que la desigualdad social es mayormente aceptable, con el mayor porcentaje de “10- completamente aceptable”, asi como numeros que varian desde 7 hasta el ya mencionado 10. Al contrario, podemos encontrar que aquellos que muestran “ninguna” o “poca” confianza en el gobierno o presidente coinciden en que la desigualdad social es “1- completamente ineficiente” o un rango cercano que demuestre una discorformidad respecto a la distribución social brindada por el gobierno de Venezuela a un sector especifico de sus ciudadanos. A su vez, es fundamental señalar que existe una diferencia considerable entre los datos que dieron resultados que demuestran desconfianza hacia el gobierno y el presidente de venezuela, y los datos que muestran confianza hacia estos. Con mas de la mitad de los encuestados reportando “ninguna” o “poca” demostrando que si bien es cierto que existe una influencia, es mas prevalente aquellos que reportaron tener desconfianza por la politica y estructura democrativa del gobierno Venezolano, y a la vez escogieron “1- completamente inaceptable” respecto a la desigualdad en Colombia, demostrando inconformidad con la manera en que el pais es manejado y los elementos socioeconomicos presentes.

El segundo hallazgo que podemos encontrar corresponde a la influencia de la clase social percibida y el nivel educativo tanto en la percepción de desigualdad del pais, la confianza en el gobierno y en el presidente en el año 2023. Podemos encontrar que independientemente de la clase social percibida o el nivel educativo, se encuentra un mayor grado de desconfianza que de confianza sobre el gobierno y el presidente del pais. Demostrando que existe un conflicto respecto a las políticas y manejo social del pais que afecta a todas las clases sociales de cierta u otra medida. Sin embargo, esta tendencia no se expresa de manera completamente uniforme, ya que los sectores bajos y medios bajos concentran porcentajes mas altos de desconfianza, mientras que en la clase alta aparecen proporciones relativamente mayores de confianza. Asimismo, en los niveles educativos mas altos se observan posturas mas criticas frente al presidente y una menor aceptacion de la desigualdad, lo que permite identificar diferencias importantes en la forma en que distintos grupos sociales perciben la realidad politica y social del pais.

Conclusion

En conclusion, este analisis permite encontrar que en Venezuela existe una tendencia generalizada de desconfianza hacia el gobierno y hacia el presidente durante el año 2023. Este hallazgo responde a la justificacion de la investigacion, ya que permite acercarse a la realidad politica y social del pais desde la propia percepcion de sus ciudadanos, dando cuenta de un malestar extendido frente al manejo politico y social de Venezuela. De esta forma, los datos aportan elementos para comprender como la poblacion valora la situacion del pais y el papel que cumple el gobierno dentro de esta.

A su vez, los resultados permiten observar que la figura de Nicolas Maduro ocupa un lugar central dentro de estas percepciones, ya que la confianza hacia el presidente tambien se mantiene en niveles bajos en la mayor parte de los grupos analizados. Esto sugiere que su papel dentro de la realidad venezolana se encuentra marcado por valoraciones criticas y por diferencias segun la clase social percibida y el nivel educativo. En este sentido, el analisis no solo permite describir opiniones sobre un actor politico especifico, sino tambien comprender como su liderazgo se relaciona con la percepcion de desigualdad y con las tensiones sociales y politicas presentes en Venezuela.