R语言如何不使用循环，通过向量化方法批量重编码多个变量？

首先给出你提供的示例数据参考代码：

str1<-c("A","B","C","D","E","F")
str2<-c("Apple", "Mango", "Avocado", "Watermelon", "Banana", "Pineapple")
str3<-c("Mouse","Cat", "Lion", "Shark", "Eagle", "Ladybug")
num1<-c(1:6)
num2<-c(2.3, 3.5, 4, 7, 6.2, 3)
binary1<-c(0,1,0,1,0,0)
binary2<-c(1,1,0,0,0,1)

mydata<-data.frame(str1,str2, str3,num1,num2, binary1, binary2)

你可以使用R原生的lapply()函数实现需求，它属于向量式操作工具，底层由C实现，比R层显式for循环的执行效率高很多，两个需求的实现方案如下：

需求1：批量转换str1/str2/str3为factor类型 #

直接对目标列执行批量转换即可，不需要手动写循环：

mydata[c("str1","str2","str3")] <- lapply(mydata[c("str1","str2","str3")], as.factor)

转换完成后可执行str(mydata)查看变量类型，确认三个目标列已切换为factor格式。

需求2：批量转换binary1/binary2为带标签的factor类型 #

给lapply()传入自定义匿名函数，统一配置映射规则即可：

mydata[c("binary1","binary2")] <- lapply(mydata[c("binary1","binary2")], function(x) {
  factor(x, levels = c(0,1), labels = c("No","Yes"))
})

转换完成后可执行head(mydata)校验，会看到原有的0/1值已经被映射为No/Yes，同时变量类型为factor。

内容的提问来源于stack exchange，提问作者Seydou GORO