r - 如何在 tidyverse 中有选择地自动更改变量数据类型？

Question

我想将一些变量从数值类型更改为因子类型，而其他类型保持原样。我知道如何一次处理一个变量，但我想针对更大的数据集自动执行该过程。

我已经在 mtcars 数据集中一个一个地更改变量，复制并粘贴代码。我已经使用 mapply 成功地实现了自动化，但我只设法在 mtcars 的一个子集上完成了它。不过，我不确定如何使用新的变量类型来保持整个数据集的完整性。下面的 Reprex。

#before

as_tibble(mtcars)
#> # A tibble: 32 x 11
#>      mpg   cyl  disp    hp  drat    wt  qsec    vs    am  gear  carb
#>    <dbl> <dbl> <dbl> <dbl> <dbl> <dbl> <dbl> <dbl> <dbl> <dbl> <dbl>
#>  1  21       6  160    110  3.9   2.62  16.5     0     1     4     4
#>  2  21       6  160    110  3.9   2.88  17.0     0     1     4     4
#>  3  22.8     4  108     93  3.85  2.32  18.6     1     1     4     1
#>  4  21.4     6  258    110  3.08  3.22  19.4     1     0     3     1
#>  5  18.7     8  360    175  3.15  3.44  17.0     0     0     3     2
#>  6  18.1     6  225    105  2.76  3.46  20.2     1     0     3     1
#>  7  14.3     8  360    245  3.21  3.57  15.8     0     0     3     4
#>  8  24.4     4  147.    62  3.69  3.19  20       1     0     4     2
#>  9  22.8     4  141.    95  3.92  3.15  22.9     1     0     4     2
#> 10  19.2     6  168.   123  3.92  3.44  18.3     1     0     4     4
#> # ... with 22 more rows

#copy + paste job

mtcars$cyl <- factor(as.character(mtcars$cyl))
mtcars$hp <- factor(as.character(mtcars$hp))
mtcars$vs <- factor(as.character(mtcars$vs))

#after

as_tibble(mtcars)
#> # A tibble: 32 x 11
#>      mpg cyl    disp hp     drat    wt  qsec vs       am  gear  carb
#>    <dbl> <fct> <dbl> <fct> <dbl> <dbl> <dbl> <fct> <dbl> <dbl> <dbl>
#>  1  21   6      160  110    3.9   2.62  16.5 0         1     4     4
#>  2  21   6      160  110    3.9   2.88  17.0 0         1     4     4
#>  3  22.8 4      108  93     3.85  2.32  18.6 1         1     4     1
#>  4  21.4 6      258  110    3.08  3.22  19.4 1         0     3     1
#>  5  18.7 8      360  175    3.15  3.44  17.0 0         0     3     2
#>  6  18.1 6      225  105    2.76  3.46  20.2 1         0     3     1
#>  7  14.3 8      360  245    3.21  3.57  15.8 0         0     3     4
#>  8  24.4 4      147. 62     3.69  3.19  20   1         0     4     2
#>  9  22.8 4      141. 95     3.92  3.15  22.9 1         0     4     2
#> 10  19.2 6      168. 123    3.92  3.44  18.3 1         0     4     4
#> # ... with 22 more rows

^{由 reprex package 创建于 2019-05-17 (v0.2.1)}

我成功地更改了变量类型。不过，我不愿意这样做 30-50 次。有哪些方法可以实现自动化？谢谢。

Answer 1

library(dplyr)

as_tibble(mtcars) %>%
  mutate_at(.vars = vars(cyl, hp, vs),
            .funs = ~ factor(as.character(.)))

希望这对您有所帮助。