R语言 批量处理中每个因子变量提取

如果您的数据集中包含多个因子变量（categorical variables），您可以使用R语言中的`lapply`函数来批量提取它们。以下是一个例子：

假设我们有一个数据集`mydata`，其中包含三个因子变量`var1`，`var2`和`var3`，我们想要分别提取它们的水平（levels）并存储到一个列表中。

# 创建一个示例数据集
mydata <- data.frame(var1 = factor(c("A", "B", "C")),
                      var2 = factor(c("X", "Y", "Z")),
                      var3 = factor(c("M", "N", "O")))

# 使用lapply函数，分别提取每个因子变量的水平
levels_list <- lapply(mydata[, sapply(mydata, is.factor)], levels)

# 打印结果
print(levels_list)

输出将是一个名为`levels_list`的列表，其中包含每个因子变量的水平：

$var1
[1] "A" "B" "C"

$var2
[1] "X" "Y" "Z"

$var3
[1] "M" "N" "O"

注意，我们在`lapply`函数中使用了`sapply`函数来选择数据集中的因子变量。这是因为`sapply`函数可以返回一个逻辑向量，其中为`TRUE`表示该变量是因子变量。然后，我们将这个逻辑向量传递给`mydata`的方括号中，以选择我们想要的列。