Es necesario instalar la libreria PsyMetricTools desde github.
if (!require("devtools")) {
install.packages("devtools")
}
devtools::install_github("jventural/PsyMetricTools")
Instalar la libreria “pacman”
install.packages("pacman")
La biblioteca “pacman” es una herramienta que, al utilizar la función
p_load
, permite instalar automáticamente una biblioteca si
no está previamente instalada, y simplemente cargarla si ya está
presente en el entorno. La función que se utiliza en la libreria
PsyMetricTools se basa en los codigos de la libreria careless
pacman::p_load(tidyverse,PsyMetricTools, careless)
El conjunto de datos psych::bfi
(que contiene datos de
personalidad del Big Five Inventory) se carga y se convierte en un
tibble (as_tibble()
), luego se eliminan las filas que
contienen valores faltantes (na.omit()
), y finalmente se
eliminan las columnas de género, educación y edad
(select(-gender, -education, -age)
), quedando solo las
variables relacionadas con la personalidad.
# data
big5 <- psych::bfi %>%
as_tibble() %>%
na.omit() %>%
select(-gender, -education, -age)
Se genera un vector de nombres nuevos para las columnas llamado
nuevos_nombres
, utilizando la función paste0()
para concatenar el prefijo “bif” con los números del 1 al 25.
# Renombrar las columnas
nuevos_nombres <- paste0("bif", 1:25)
Se renombran las columnas del conjunto de datos big5
utilizando los nombres generados en el paso anterior
(nuevos_nombres
) mediante la función
rename_with()
, aplicada a todas las columnas
(everything()
), y se almacena el resultado en un nuevo
objeto llamado big5_new
.
# Aplicar los nuevos nombres a las columnas
big5_new <- big5 %>%
rename_with(~ nuevos_nombres, everything())
# Tasas de respuesta
Tasa_Items <- Plot_Likert(big5_new, "bif", 1:25, exclude = NULL)
Tasa_Items
Ventura-León, J. (2024). PsyMetricTools [Software]. GitHub. https://github.com/jventural/PsyMetricTools