Interacción entre factores Psicológicos y factores sociales
Natalia Isabella Yarala Perna
2025-08-20
Contexto
Este análisis explora datos de psicología social examinando cómo variables demográficas y psicosociales se interrelacionan con la participación ciudadana y la percepción de justicia. Los hallazgos contribuyen a entender los factores que promueven sociedades más inclusivas y participativas
Variables incluidas
Edad: edad del encuestado.
Sexo: Masculino, Femenino, otro.
Nivel educativo: Secundaria, Universitaria, Tecnico, Postgrado.
Percepción de discriminación: Escala del 1 al 10 - Escala que mide el grado en que la persona siente que existe desigualdad en su trato.
Confianza social: Escala del 1 al 10 - Escala que mide el nivel de fe en instituciones y demás ciudadanos.
Tolerancia a diferencias: Escala del 1 al 10 - Escala que mide el nivel de aceptación de diversidad cultural, sexual, ideológica.
Satisfacción de convivencia: Escala del 1 al 10 - Escala que mide el grado de bienestar en su entorno social.
Participación en organizaciones: Si, No - Indicador de capital social y redes de apoyo
Apoyo a causas sociales: Si, No - Indica compromiso con movimientos de cambio.
Frecuencia de activismo: Frecuente, ocasional, nunca - Indica el grado de involucramiento en acciones colectivas.
Uso de redes para protesta: Si, No - Indica la adaptación a nuevas formas de participación digital.
library(readxl)
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(ggplot2)
library(summarytools)## Warning in fun(libname, pkgname): couldn't connect to display ":0"datos <- read_excel("Base_Psicologia_Social.xlsx")En primer lugar se visualizan las dimensiones de la base de datos, la cuál consta de 100 conservaciones 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
## ##print(paste("Dimensiones de datos:", paste(dim(datos), collapse = " x ")))## [1] "Dimensiones de datos: 100 x 11"missmap(datos,
main = "Valores faltantes en Base de Psicología Social",
col = c("yellow", "black"),
y.cex = 0.8,
x.cex = 0.8)## Warning: Unknown or uninitialised column: `arguments`.
## Unknown or uninitialised column: `arguments`.## Warning: Unknown or uninitialised column: `imputations`.
De la figura anterior, podemos afirmar que la base de datos no se encuentra en valores faltantes.
summary(datos)## edad sexo nivel_educativo participa_organizaciones
## Min. :18.00 Length:100 Length:100 Length:100
## 1st Qu.:28.00 Class :character Class :character Class :character
## Median :45.00 Mode :character Mode :character Mode :character
## Mean :42.22
## 3rd Qu.:53.25
## Max. :65.00
## percepcion_discriminacion nivel_confianza_social tolerancia_diferencias
## Min. : 1.00 Min. : 1.00 Min. : 1.0
## 1st Qu.: 4.00 1st Qu.: 3.00 1st Qu.: 3.0
## Median : 7.00 Median : 5.00 Median : 5.0
## Mean : 6.23 Mean : 4.96 Mean : 5.5
## 3rd Qu.: 9.00 3rd Qu.: 7.00 3rd Qu.: 8.0
## Max. :10.00 Max. :10.00 Max. :10.0
## apoyo_causas_sociales frecuencia_activismo uso_redes_protesta
## Length:100 Length:100 Length:100
## Class :character Class :character Class :character
## Mode :character Mode :character Mode :character
##
##
##
## satisfaccion_convivencia
## Min. : 1.00
## 1st Qu.: 3.75
## Median : 6.00
## Mean : 5.78
## 3rd Qu.: 8.00
## Max. :10.00La muestra analizada presenta un rango de edad entre 18 y 65 años, con una media de 42.22 años y una mediana de 45 años. El nivel de percepción de discriminacion varía entre 1 y 10, con una media de 6.23 y una mediana de 7, donde el 25% de los participantes tienen valores menores a 4 y el 75% inferiores a 9%. En cuanto al nivel de confianza social, sus valores varian entre 1 y 10, con una media de 4.96 y una mediana de 5. La tolerancia a diferencias varía entre 1 y 10, con una media de 5.5 y una mediana de 5. La satisfaccion en la convivencia varía entre 1 y 10, con una media de 5.78 y una mediana de 6. Se recomienda analizar las correlaciones entre percepcion de la discriminación, nivel de confianza social, tolerancia a diferencias y satisfaccion en la convivencia para comprender mejor los patrones psicosociales.
Análisis Univariado.
ggplot(datos, aes(x = edad)) +
geom_histogram(binwidth =5, fill = "skyblue", color = "black") +
theme_minimal() +
ggtitle("Distribución de edad")
El histograma muestra la distribución de edades en la base de datos con un rango que va aproximadamente desde los 20 a los 70 años. Se obserba una mayor cantidad de individuos en los grupos de edad entre los 20 y 25 años, asi como entre los 50 y 60 años, lo que indica picos en la frecuencia de los participantes en estas edades.
library(ggplot2)
ggplot(datos,aes(x = sexo, fill = sexo)) +
geom_bar(color = "black", alpha = 0.7) +
geom_text(stat = "count", aes(label = ..count..), vjust = -0.5) +
scale_fill_manual(values = c("skyblue", "lightcoral","plum")) +
labs(title = "distribucion de la muestra por sexo",
x = "sexo",
y = "frecuencia") +
theme_minimal() +
theme(legend.position = "none",
plot.title = element_text(hjust = 0.5, size = 14, face = "bold"))## Warning: The dot-dot notation (`..count..`) was deprecated in ggplot2 3.4.0.
## ℹ Please use `after_stat(count)` instead.
## This warning is displayed once every 8 hours.
## Call `lifecycle::last_lifecycle_warnings()` to see where this warning was
## generated.
La muestra está compuesta por Femenino = 40%, Masculino = 51% y Otro =
9%.
ggplot(datos, aes(x = sexo, y = percepcion_discriminacion, fill = sexo)) +
geom_boxplot() +
scale_fill_brewer(palette = "Set2") +
labs(title = "Percepción de Discriminación por Sexo",
x = "Sexo",
y = "Puntuación (1-10)") +
theme_classic()
El análisis revela diferencias notorias en la percepción de discriminación según el sexo. Los participantes que se identifican como ‘Otro’ reportan la mayor percepción de discriminación, seguidos por el grupo femenino, mientras que el grupo masculino muestra la menor percepción general.
Grupo ‘Otro’: Mayor mediana y dispersión, sugiriendo experiencias más intensas y variables de discriminación
Grupo Femenino: Mediana intermedia pero con amplia variabilidad, indicando experiencias diversas
Grupo Masculino: Menor mediana y caja más compacta, sugiriendo menor y más consistente percepción de discriminación
Los resultados indican un gradiente en la percepción de discriminación según identidad de género. La población no binaria/otro manifiesta los niveles más elevados, seguida por mujeres, mientras hombres reportan percepciones significativamente menores. Este patrón sugiere que la discriminación opera diferencialmente según el género, afectando desproporcionadamente a grupos no dominantes.
library(ggplot2)
ggplot(datos, aes(x = edad, y = satisfaccion_convivencia)) +
geom_point(alpha = 0.6,
size = 3,
color = "#3366CC") +
geom_smooth(method = "lm",
se = TRUE,
color = "#FF6633",
fill = "lightgray") +
labs(title = "RELACIÓN: EDAD vs SATISFACCIÓN DE CONVIVENCIA",
subtitle = "Correlación entre variables",
x = "Edad (años)",
y = "Satisfacción de Convivencia (1-10)",
caption = paste("n =", nrow(na.omit(datos[, c("edad", "satisfaccion_convivencia")])))) +
theme_minimal() +
theme(plot.title = element_text(face = "bold", hjust = 0.5),
plot.subtitle = element_text(hjust = 0.5))## `geom_smooth()` using formula = 'y ~ x'
El análisis revela una [tendencia positiva/débil/negativa] entre edad y satisfacción con la convivencia. Los participantes de mayor edad tienden a reportar [mayor/menor] satisfacción, sugiriendo que la experiencia acumulada o factores generacionales podrían influir en la percepción del entorno social.
Los resultados sugieren que la relación entre edad y satisfacción con la convivencia es [fuente/débil/inexistente], indicando que otros factores beyond la edad podrían ser más relevantes para entender la satisfacción con el entorno social.