Impulsividad y Agresividad al Conducir
Andrés Aybar
2025-05-11
Resumen
A continuación, se presenta un análisis exploratorio basado en los datos recopilados para mi tesis de grado titulada “Impulsividad y agresividad al conducir”, realizada entre noviembre y diciembre de 2011. El estudio se llevó a cabo con una muestra por conveniencia compuesta por 30 personas, con edades entre 20 y 24 años. Se seleccionaron seis participantes por cada edad, distribuidos equitativamente por sexo (tres hombres y tres mujeres). A todos los participantes se les preguntó previamente su edad y si eran conductores.
Para el estudio se emplearon tres instrumentos diseñados para medir los constructos de road rage, impulsividad y variables sociodemográficas.
Para evaluar las variables sociodemográficas, se diseñó un cuestionario compuesto por 14 preguntas, incluyendo tanto ítems abiertos como cerrados. Las preguntas cerradas ofrecían opciones de respuesta predeterminadas, con el objetivo de recabar información social y demográfica relevante de cada participante.
La medición del road rage se realizó mediante la escala PADS (Propensity for Angry Driving Scale), un cuestionario compuesto por 15 preguntas cerradas. En cada ítem, se presenta al participante una situación hipotética relacionada con el tránsito, seguida de cuatro posibles reacciones. El participante debe seleccionar únicamente la opción que represente con mayor fidelidad cómo reaccionaría si la situación fuese real. Las opciones de respuesta varían según el escenario planteado, ya que cada situación vial es distinta. La puntuación total de la escala oscila entre un mínimo de 26.18 y un máximo de 86.05. Para esta investigación, se utilizó una adaptación validada al contexto dominicano, tomando como base la versión australiana y considerando las diferencias en normativas de tránsito entre ambos países. La escala presenta una fiabilidad adecuada, con un coeficiente alfa de Cronbach de 0.82 (Leal & Pachana, 2008).
Por último, la impulsividad fue evaluada mediante una versión del BIS (Escala de Impulsividad de Barratt), compuesta por 30 ítems. Los participantes debían responder a cada enunciado eligiendo entre cuatro opciones: raramente o nunca (valor 0), ocasionalmente (valor 1), a menudo (valor 3) y siempre o casi siempre (valor 4). La puntuación total puede variar entre 0 (si todas las respuestas son “raramente o nunca”) y 120 (si todas las respuestas son “siempre o casi siempre”). Esta versión de la escala ha mostrado una consistencia interna aceptable, con un alfa de Cronbach de 0.68 (Folino, Córdoba & Castillo, 2006).
Carga y preparación de los datos
Cargar datos
data <- read_excel("./BDTESIS.xlsx")Visualizar las primeras filas
head(data)## # A tibble: 6 × 16
## SEXO EDAD NACIONALIDAD RELIGION INGRESO VIVE PROPIO TIEMPO FRECUENCIA
## <chr> <dbl> <chr> <chr> <chr> <chr> <chr> <dbl> <chr>
## 1 femenino 24 Extranjero catolico 20000-o… fami… si 5 todos los…
## 2 femenino 24 Dominicano catolico 20000-o… fami… si 7 todos los…
## 3 femenino 24 Dominicano catolico 10000-2… fami… no 2 3 a 5 vec…
## 4 masculino 24 Dominicano cristiano 20000-o… fami… si 5 3 a 5 vec…
## 5 masculino 24 Dominicano otro 20000-o… fami… si 9 todos los…
## 6 masculino 24 Extranjero ateo 10000-2… fami… si 9 todos los…
## # ℹ 7 more variables: HORARIO <chr>, HORAS <chr>, RUTAS <chr>, VEHICULO <chr>,
## # ACCIDENTES <dbl>, BIS <dbl>, PADS <dbl>Descripción de la muestra
Estadísticas básicas
summary(data)## SEXO EDAD NACIONALIDAD RELIGION
## Length:30 Min. :20 Length:30 Length:30
## Class :character 1st Qu.:21 Class :character Class :character
## Mode :character Median :22 Mode :character Mode :character
## Mean :22
## 3rd Qu.:23
## Max. :24
## INGRESO VIVE PROPIO TIEMPO
## Length:30 Length:30 Length:30 Min. :1.0
## Class :character Class :character Class :character 1st Qu.:3.0
## Mode :character Mode :character Mode :character Median :4.0
## Mean :4.5
## 3rd Qu.:6.0
## Max. :9.0
## FRECUENCIA HORARIO HORAS RUTAS
## Length:30 Length:30 Length:30 Length:30
## Class :character Class :character Class :character Class :character
## Mode :character Mode :character Mode :character Mode :character
##
##
##
## VEHICULO ACCIDENTES BIS PADS
## Length:30 Min. :0.000 Min. :30.00 Min. :27.27
## Class :character 1st Qu.:1.000 1st Qu.:44.00 1st Qu.:37.31
## Mode :character Median :1.000 Median :52.50 Median :42.53
## Mean :1.667 Mean :53.03 Mean :43.53
## 3rd Qu.:2.000 3rd Qu.:60.75 3rd Qu.:50.00
## Max. :8.000 Max. :80.00 Max. :64.21describe(data)## vars n mean sd median trimmed mad min max range skew
## SEXO* 1 30 1.50 0.51 1.50 1.50 0.74 1.00 2.00 1.00 0.00
## EDAD 2 30 22.00 1.44 22.00 22.00 1.48 20.00 24.00 4.00 0.00
## NACIONALIDAD* 3 30 1.13 0.35 1.00 1.04 0.00 1.00 2.00 1.00 2.05
## RELIGION* 4 30 2.30 1.15 2.00 2.12 0.00 1.00 5.00 4.00 1.14
## INGRESO* 5 30 2.03 0.72 2.00 2.04 0.74 1.00 3.00 2.00 -0.04
## VIVE* 6 30 2.00 0.26 2.00 2.00 0.00 1.00 3.00 2.00 0.00
## PROPIO* 7 30 1.87 0.35 2.00 1.96 0.00 1.00 2.00 1.00 -2.05
## TIEMPO 8 30 4.50 2.22 4.00 4.33 1.48 1.00 9.00 8.00 0.49
## FRECUENCIA* 9 30 1.90 0.40 2.00 1.96 0.00 1.00 3.00 2.00 -0.80
## HORARIO* 10 30 2.03 0.41 2.00 2.00 0.00 1.00 3.00 2.00 0.24
## HORAS* 11 30 2.60 1.16 3.00 2.62 1.48 1.00 4.00 3.00 -0.11
## RUTAS* 12 30 1.30 0.47 1.00 1.25 0.00 1.00 2.00 1.00 0.83
## VEHICULO* 13 30 1.63 0.49 2.00 1.67 0.00 1.00 2.00 1.00 -0.53
## ACCIDENTES 14 30 1.67 1.67 1.00 1.42 1.48 0.00 8.00 8.00 1.85
## BIS 15 30 53.03 12.67 52.50 52.79 12.60 30.00 80.00 50.00 0.18
## PADS 16 30 43.53 8.66 42.53 43.20 10.09 27.27 64.21 36.94 0.36
## kurtosis se
## SEXO* -2.07 0.09
## EDAD -1.41 0.26
## NACIONALIDAD* 2.28 0.06
## RELIGION* 0.55 0.21
## INGRESO* -1.13 0.13
## VIVE* 11.02 0.05
## PROPIO* 2.28 0.06
## TIEMPO -0.57 0.41
## FRECUENCIA* 2.19 0.07
## HORARIO* 2.57 0.08
## HORAS* -1.51 0.21
## RUTAS* -1.35 0.09
## VEHICULO* -1.78 0.09
## ACCIDENTES 4.45 0.30
## BIS -0.66 2.31
## PADS -0.56 1.58Distribución de la muestra según edad y sexo
table(data$SEXO)##
## femenino masculino
## 15 15table(data$EDAD)##
## 20 21 22 23 24
## 6 6 6 6 6Índices principales: impulsividad y road rage
# Resumen general
describe(select(data, BIS, PADS, ACCIDENTES))## vars n mean sd median trimmed mad min max range skew
## BIS 1 30 53.03 12.67 52.50 52.79 12.60 30.00 80.00 50.00 0.18
## PADS 2 30 43.53 8.66 42.53 43.20 10.09 27.27 64.21 36.94 0.36
## ACCIDENTES 3 30 1.67 1.67 1.00 1.42 1.48 0.00 8.00 8.00 1.85
## kurtosis se
## BIS -0.66 2.31
## PADS -0.56 1.58
## ACCIDENTES 4.45 0.30# Boxplot por sexo
ggplot(data, aes(x = SEXO, y = BIS, fill = SEXO)) +
geom_boxplot() +
labs(title = "Impulsividad por sexo", x = "Sexo", y = "Puntaje de impulsividad")
ggplot(data, aes(x = SEXO, y = PADS, fill = SEXO)) +
geom_boxplot() +
labs(title = "Road rage por sexo", x = "Sexo", y = "Puntaje de road rage")
Comparaciones estadísticas
Prueba T para impulsividad por sexo
t.test(BIS ~ SEXO, data = data)##
## Welch Two Sample t-test
##
## data: BIS by SEXO
## t = -1.0542, df = 26.438, p-value = 0.3013
## alternative hypothesis: true difference in means between group femenino and group masculino is not equal to 0
## 95 percent confidence interval:
## -14.348162 4.614828
## sample estimates:
## mean in group femenino mean in group masculino
## 50.60000 55.46667Se realizó una prueba t de Welch para comparar las puntuaciones promedio en la escala BIS entre los grupos femenino y masculino. Los resultados no mostraron una diferencia estadísticamente significativa entre ambos grupos (t = -1.05, gl = 26.44, p = 0.301). El intervalo de confianza del 95% para la diferencia de medias oscila entre -14.35 y 4.61, lo cual incluye el valor cero, lo que refuerza la conclusión de que no hay evidencia suficiente para afirmar que existe una diferencia en la impulsividad medida por la escala BIS entre los sexos. Las medias observadas fueron de 50.60 para el grupo femenino y 55.47 para el grupo masculino.
Prueba T para accidentes por sexo
t.test(ACCIDENTES ~ SEXO, data = data)##
## Welch Two Sample t-test
##
## data: ACCIDENTES by SEXO
## t = -2.0804, df = 21.088, p-value = 0.04986
## alternative hypothesis: true difference in means between group femenino and group masculino is not equal to 0
## 95 percent confidence interval:
## -2.3992173398 -0.0007826602
## sample estimates:
## mean in group femenino mean in group masculino
## 1.066667 2.266667Se llevó a cabo una prueba t de Welch para comparar la cantidad promedio de accidentes entre los grupos femenino y masculino. Los resultados indicaron una diferencia estadísticamente significativa entre ambos grupos (t = -2.08, gl = 21.09, p = 0.0499). El intervalo de confianza del 95% para la diferencia de medias va de -2.40 a -0.0008, lo que sugiere que los hombres presentan en promedio una mayor cantidad de accidentes que las mujeres. En efecto, la media de accidentes fue de 1.07 para el grupo femenino y de 2.27 para el grupo masculino.
Correlaciones
Implusividad y accidentes
cor.test(data$BIS, data$ACCIDENTES)##
## Pearson's product-moment correlation
##
## data: data$BIS and data$ACCIDENTES
## t = 2.6986, df = 28, p-value = 0.01167
## alternative hypothesis: true correlation is not equal to 0
## 95 percent confidence interval:
## 0.1124463 0.7000070
## sample estimates:
## cor
## 0.4543109Se realizó un análisis de correlación de Pearson para examinar la relación entre las puntuaciones en la escala BIS (impulsividad) y la cantidad de accidentes. Los resultados mostraron una correlación positiva y estadísticamente significativa (r = 0.45, p = 0.012), lo que indica que, a mayor impulsividad, tiende a haber una mayor cantidad de accidentes. El intervalo de confianza del 95% para el coeficiente de correlación va de 0.11 a 0.70, lo que respalda la existencia de una relación moderada entre ambas variables.
Impulsividad y road rage
cor.test(data$BIS, data$PADS)##
## Pearson's product-moment correlation
##
## data: data$BIS and data$PADS
## t = 2.5661, df = 28, p-value = 0.01593
## alternative hypothesis: true correlation is not equal to 0
## 95 percent confidence interval:
## 0.09026332 0.68839579
## sample estimates:
## cor
## 0.4363431Se llevó a cabo una correlación de Pearson para evaluar la relación entre las puntuaciones de impulsividad (BIS) y la propensión a la agresividad al conducir (PADS). El análisis reveló una correlación positiva y estadísticamente significativa (r = 0.44, p = 0.016), lo que sugiere que a mayor impulsividad, mayor es la propensión a presentar conductas agresivas al conducir. El intervalo de confianza del 95% para el coeficiente de correlación oscila entre 0.09 y 0.69, lo que indica una relación de magnitud moderada.
Análisis de regresión
modelo <- lm(ACCIDENTES ~ BIS + PADS + EDAD + SEXO, data = data)
summary(modelo)##
## Call:
## lm(formula = ACCIDENTES ~ BIS + PADS + EDAD + SEXO, data = data)
##
## Residuals:
## Min 1Q Median 3Q Max
## -1.9808 -0.8344 -0.3380 0.3767 3.9772
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) -10.020872 4.339253 -2.309 0.0295 *
## BIS 0.057900 0.023797 2.433 0.0225 *
## PADS -0.008926 0.038755 -0.230 0.8197
## EDAD 0.387381 0.203247 1.906 0.0682 .
## SEXOmasculino 0.966173 0.545975 1.770 0.0890 .
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 1.406 on 25 degrees of freedom
## Multiple R-squared: 0.387, Adjusted R-squared: 0.2889
## F-statistic: 3.946 on 4 and 25 DF, p-value: 0.01287Se realizó un análisis de regresión lineal múltiple para predecir la cantidad de accidentes a partir de las variables impulsividad (BIS), propensión a la agresividad en la conducción (PADS), edad y sexo. El modelo fue estadísticamente significativo en su conjunto (F(4, 25) = 3.95, p = 0.0129), explicando aproximadamente el 39% de la varianza en la cantidad de accidentes (R² = 0.387; R² ajustado = 0.289). Entre las variables, solo la impulsividad (BIS) mostró un efecto significativo (β = 0.058, p = 0.0225), indicando que a mayor impulsividad, mayor número de accidentes. La edad (p = 0.068) y el sexo masculino (p = 0.089) mostraron efectos marginales, mientras que la propensión a la agresividad (PADS) no fue un predictor significativo (p = 0.82).
Visualización de relaciones
Impulsividad vs Accidentes
ggplot(data, aes(x = BIS, y = ACCIDENTES)) +
geom_point(aes(color = SEXO)) +
geom_smooth(method = "lm", se = FALSE) +
labs(title = "Relación entre impulsividad y accidentes",
x = "Puntaje de impulsividad", y = "Cantidad de accidentes")
Road rage vs Impulsividad
ggplot(data, aes(x = BIS, y = PADS)) +
geom_point(aes(color = SEXO)) +
geom_smooth(method = "lm", se = TRUE) +
labs(title = "Relación entre impulsividad y road rage",
x = "Impulsividad", y = "Road rage")
Discusión
Los análisis muestran diferencias de género en los niveles de impulsividad y de accidentes, aunque algunas no son estadísticamente significativas. Se confirma una relación positiva entre impulsividad y accidentes, así como entre impulsividad y conducir de manera agresiva.
La regresión múltiple sugiere que tanto la impulsividad como la agresividad al conducir podrían predecir el número de accidentes, aunque se requiere mayor tamaño muestral para fortalecer la inferencia estadística.
Conclusión
Este estudio permite visualizar patrones relevantes sobre el comportamiento vial de jóvenes conductores. La impulsividad parece jugar un rol importante tanto en la agresividad al conducir como en la incidencia de accidentes. Publicar estos hallazgos puede aportar evidencia útil para intervenciones preventivas.