一次将多列强制转换为因子

Question

我有一个示例数据框，如下所示：data <- data.frame(matrix(sample(1:40), 4, 10, dimnames = list(1:4, LETTERS[1:10])))我想知道如何选择多个列并将它们一起转换为因子。我通常会这样做data$A = as.factor(data$A)。但是，当数据帧很大且包含许多列时，这种方式将非常耗时。有谁知道更好的方法吗？

Answer 1

选择一些列以强制考虑因素：

cols <- c("A", "C", "D", "H")

使用lapply()强迫和更换所选列：

data[cols] <- lapply(data[cols], factor)  ## as.factor() could also be used

检查结果：

sapply(data, class)

#        A         B         C         D         E         F         G 

# "factor" "integer"  "factor"  "factor" "integer" "integer" "integer" 

#        H         I         J 

# "factor" "integer" "integer" 

Answer 2

最近的tidyverse方法是使用mutate_at函数：

library(tidyverse)

library(magrittr)

set.seed(88)

data <- data.frame(matrix(sample(1:40), 4, 10, dimnames = list(1:4, LETTERS[1:10])))

cols <- c("A", "C", "D", "H")

data %<>% mutate_at(cols, funs(factor(.)))

str(data)

 $ A: Factor w/ 4 levels "5","17","18",..: 2 1 4 3   

 $ B: int  36 35 2 26

 $ C: Factor w/ 4 levels "22","31","32",..: 1 2 4 3

 $ D: Factor w/ 4 levels "1","9","16","39": 3 4 1 2

 $ E: int  3 14 30 38

 $ F: int  27 15 28 37

 $ G: int  19 11 6 21

 $ H: Factor w/ 4 levels "7","12","20",..: 1 3 4 2

 $ I: int  23 24 13 8

 $ J: int  10 25 4 33