Usando la versión 1.0 o superior de dplyr
puedes usar operaciones 'rowwise' (por filas) con rowwise()
y c_across()
. Con esto, lo que pides se hace muy sencillo.
Voy a usar el mismo set de datos creado por mpaladino.
library(tidyverse)
variables <- letters[1:22]
picante <- set_names(rep(1, 22), variables)
likerts <- map(variables, ~sample(1:4, 10, replace = TRUE)) %>%
set_names(variables) %>%
bind_cols() %>%
add_row(!!!picante)
likerts
#> # A tibble: 11 x 22
#> a b c d e f g h i j k l m
#> <dbl> <dbl> <dbl> <dbl> <dbl> <dbl> <dbl> <dbl> <dbl> <dbl> <dbl> <dbl> <dbl>
#> 1 2 3 2 3 3 1 1 3 4 2 1 2 4
#> 2 4 4 2 2 4 1 2 1 3 2 4 1 3
#> 3 3 1 4 4 1 3 3 2 2 3 4 2 3
#> 4 2 1 2 4 4 1 4 2 3 2 2 1 1
#> 5 2 2 2 1 4 2 4 3 3 2 1 3 3
#> 6 3 3 3 3 3 4 1 3 2 4 2 2 2
#> 7 4 3 4 2 3 3 1 3 4 4 2 1 3
#> 8 3 2 3 4 2 4 4 4 3 3 1 2 1
#> 9 2 2 4 1 4 4 3 1 4 1 4 3 2
#> 10 4 2 4 4 1 2 3 1 3 3 3 1 4
#> 11 1 1 1 1 1 1 1 1 1 1 1 1 1
#> # ... with 9 more variables: n <dbl>, o <dbl>, p <dbl>, q <dbl>, r <dbl>,
#> # s <dbl>, t <dbl>, u <dbl>, v <dbl>
rowwise()
se usa de manera similar a group_by()
. En términos sencillos, hace que cada fila sea un grupo. Con c_across()
indicamos las columnas a utilizar, por defecto se usan todas. En este caso, estamos pidiendo que se filtren aquellas filas en las que todas las columnas tienen el mismo valor que la primera columna (todas las filas tienen la misma respuesta).
likerts %>%
rowwise() %>%
filter(all(c_across() == a)) %>%
ungroup()
#> # A tibble: 1 x 22
#> a b c d e f g h i j k l m
#> <dbl> <dbl> <dbl> <dbl> <dbl> <dbl> <dbl> <dbl> <dbl> <dbl> <dbl> <dbl> <dbl>
#> 1 1 1 1 1 1 1 1 1 1 1 1 1 1
#> # ... with 9 more variables: n <dbl>, o <dbl>, p <dbl>, q <dbl>, r <dbl>,
#> # s <dbl>, t <dbl>, u <dbl>, v <dbl>
Para dejar esas filas afuera basta con usar el complemento de ese conjunto en el filtrado.
likerts %>%
rowwise() %>%
filter(!all(c_across() == a)) %>%
ungroup()
#> # A tibble: 10 x 22
#> a b c d e f g h i j k l m
#> <dbl> <dbl> <dbl> <dbl> <dbl> <dbl> <dbl> <dbl> <dbl> <dbl> <dbl> <dbl> <dbl>
#> 1 2 3 2 3 3 1 1 3 4 2 1 2 4
#> 2 4 4 2 2 4 1 2 1 3 2 4 1 3
#> 3 3 1 4 4 1 3 3 2 2 3 4 2 3
#> 4 2 1 2 4 4 1 4 2 3 2 2 1 1
#> 5 2 2 2 1 4 2 4 3 3 2 1 3 3
#> 6 3 3 3 3 3 4 1 3 2 4 2 2 2
#> 7 4 3 4 2 3 3 1 3 4 4 2 1 3
#> 8 3 2 3 4 2 4 4 4 3 3 1 2 1
#> 9 2 2 4 1 4 4 3 1 4 1 4 3 2
#> 10 4 2 4 4 1 2 3 1 3 3 3 1 4
#> # ... with 9 more variables: n <dbl>, o <dbl>, p <dbl>, q <dbl>, r <dbl>,
#> # s <dbl>, t <dbl>, u <dbl>, v <dbl>
Created on 2021-04-05 by the reprex package (v1.0.0)