Ejemplo Práctico #2: Interacciones entre Factores Psicológicos y Percepción de las Relaciones Internacionales
Keyla Vanessa Alba Molina
2025-08-19
Contexto
El estudio de las relaciones internacionales no solo se basa en la política y la economía global, sino también en cómo los individuos perciben e interactúan con el mundo. Factores psicológicos como el nivel de estrés, la resiliencia y la percepción de equidad global pueden influir en la manera en que una persona interpreta los conflictos internacionales, participa en el activismo político o confía en instituciones internacionales.
Variables Incluidas
ID – Identificador único de cada participante.
Edad – Edad del encuestado (18 a 65 años).
Género – Masculino, Femenino, No binario.
Nivel de depresión – Escala de 1 a 10.
Nivel de resiliencia – Escala de 1 a 10.
Índice de felicidad global (0-100) – Medición autoinformada sobre la felicidad percibida.
Horas de interacción con extranjeros por semana – Cantidad de tiempo invertido en socializar con personas de otras nacionalidades.
Conocimiento en política internacional (0-100) – Escala que mide el nivel de información sobre relaciones internacionales.
Apertura a la migración (0-10) – Grado de aceptación de inmigrantes en su país.
Nivel de preocupación por conflictos internacionales (0-10) – Medición de la inquietud sobre conflictos entre países.
Participación en ONGs internacionales – Sí / No, sobre la afiliación a organizaciones no gubernamentales con enfoque global.
Grado de activismo político (0-10) – Nivel de participación en movimientos políticos o de derechos humanos.
Percepción de equidad global (0-10) – Opinión sobre la justicia y equidad entre países en términos de derechos humanos y economía.
Horas semanales dedicadas a temas de RRII – Tiempo invertido en estudiar o informarse sobre relaciones internacionales.
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, unionlibrary(corrplot)## corrplot 0.95 loadedlibrary(ggpubr)
data <- read_excel("Base_Datos_Psicologia_RI.xlsx", sheet = "Sheet1")
dim(data)## [1] 100 14En primer lugar se visualizan las dimensiones de la base de datos, la cuál consta de 100 observaciones con 14 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)## ID Edad Género Nivel de depresión
## Min. : 1.00 Min. :19.00 Length:100 Min. : 1.00
## 1st Qu.: 25.75 1st Qu.:30.00 Class :character 1st Qu.: 3.00
## Median : 50.50 Median :44.50 Mode :character Median : 5.50
## Mean : 50.50 Mean :42.31 Mean : 5.38
## 3rd Qu.: 75.25 3rd Qu.:54.25 3rd Qu.: 8.00
## Max. :100.00 Max. :63.00 Max. :10.00
## Nivel de resiliencia Índice de felicidad global (0-100)
## Min. : 1.0 Min. : 0.00
## 1st Qu.: 3.0 1st Qu.:29.75
## Median : 5.0 Median :61.50
## Mean : 5.5 Mean :53.48
## 3rd Qu.: 8.0 3rd Qu.:77.50
## Max. :10.0 Max. :98.00
## Horas de interacción con extranjeros por semana
## Min. : 0.00
## 1st Qu.: 5.75
## Median :11.00
## Mean :10.41
## 3rd Qu.:15.00
## Max. :20.00
## Conocimiento en política internacional (0-100) Apertura a la migración (0-10)
## Min. : 1.00 Min. : 0.00
## 1st Qu.: 20.75 1st Qu.: 2.00
## Median : 42.00 Median : 4.00
## Mean : 45.10 Mean : 4.28
## 3rd Qu.: 69.00 3rd Qu.: 7.00
## Max. :100.00 Max. :10.00
## Nivel de preocupación por conflictos internacionales (0-10)
## Min. : 0.00
## 1st Qu.: 2.00
## Median : 4.00
## Mean : 4.48
## 3rd Qu.: 7.00
## Max. :10.00
## Participación en ONGs internacionales Grado de activismo político (0-10)
## Length:100 Min. : 0.00
## Class :character 1st Qu.: 3.00
## Mode :character Median : 5.00
## Mean : 4.93
## 3rd Qu.: 7.00
## Max. :10.00
## Percepción de equidad global (0-10) Horas semanales dedicadas a temas de RRII
## Min. : 0.00 Min. : 0.00
## 1st Qu.: 3.00 1st Qu.: 5.00
## Median : 5.00 Median : 9.00
## Mean : 5.34 Mean :10.11
## 3rd Qu.: 8.00 3rd Qu.:16.00
## Max. :10.00 Max. :20.00La muestra analizada presenta un rango de edad entre 19 y 63 años, con una media de 42.31 años y una mediana de 44.50 años. El nivel de depresión varía entre 1 y 10, con una media de 5.38 y una mediana de 5.50, donde el 25% de los participantes tienen valores inferiores a 3 y el 75% inferiores a 8. En cuanto a la resiliencia, su distribución es equilibrada, con valores entre 1 y 10, y una media y mediana de 5. El índice de felicidad global presenta una amplia variabilidad (0-98), con una media de 53.48 y una mediana de 61.50, mostrando una distribución sesgada a la izquierda. Se recomienda analizar las correlaciones entre resiliencia, felicidad y depresión para comprender mejor los patrones de bienestar psicológico.
Análisis Univariado
ggplot(data, aes(x = Edad)) +
geom_histogram(binwidth = 5, fill = "skyblue", color = "black") +
theme_minimal() +
ggtitle("Distribución de Edad")