Datos normativos de las validaciones del IAPS en argentina

Cargar el paquete

# En caso de no tenerlo, entonces usar:
# devtools::install_github("toninif/iapsArgentina")

library(iapsArgentina)

Datos

Segunda edición

Insertar una intro

Puntuaciones

library(dplyr)

segunda_edicion |>
  group_by(grupo) |>
  summarise(n = n(),
            Valencia_media = mean(val_M) |> round(2),
            Activacion_media = mean(aro_M) |> round(2),
            Control_media = mean(con_M) |> round(2),
            .groups = "drop")
#> # A tibble: 3 × 5
#>   grupo       n Valencia_media Activacion_media Control_media
#>   <chr>   <int>          <dbl>            <dbl>         <dbl>
#> 1 general   412           5.08             4.93          5.47
#> 2 hombres   412           5.23             4.76          5.71
#> 3 mujeres   412           4.96             5.07          5.26

Espacio bidimensional afectivo

library(ggplot2)

ggplot(data = segunda_edicion, mapping = aes(x = val_M, y = aro_M)) +
  geom_point(alpha = .5, colour = "lightblue") +
  coord_flip()

ggplot(data = segunda_edicion |> filter(grupo == "mujeres"), mapping = aes(x = val_M, y = aro_M)) +
  geom_point(alpha = .7, colour = "gold") +
  coord_flip()

ggplot(data = segunda_edicion |> filter(grupo == "hombres"), mapping = aes(x = val_M, y = aro_M)) +
  geom_point(alpha = .7, colour = "lightblue") +
  coord_flip()