使用seq_along粘贴以循环编码

Question

当重新编码一组都具有相同格式的变量时，我想循环执行以节省时间，但是结果似乎使我无所适从。

考虑以下示例

d1 <- data.frame(x1 = 1:4,
                 x2 = 1:4)

我想使用汽车资料库中的recode来分配一组新的变量y1和y2 ，但我不想手工完成。

我的婴儿方法是

library(car)
var_list <- c("x1", "x2")
for(i in seq_along(var_list)) {
assign(paste("d1$y", match(i, var_list)], sep = ""),
       recode(d1$i, "1:2 = 'a';3:4 = 'b'"))}

我试图遍历var_list ，然后使用assign和paste对变量d1$y1和d1$y2 。 使用recode是该程序包的常规功能，而不是我的错误来源（我想！）

我在这里做错了什么？

Answer 1

这是一种更“ R-ish”的方法，仍然使用recode() ：

d2 <- lapply(d1, FUN=function(X) recode(X, "1:2 ='a'; 3:4 = 'b'"))
names(d2) <- gsub("x", "y", names(d2))
d1 <- data.frame(d1,d2)
d1
#  x1 x2 y1 y2
# 1  1  1  a  a
# 2  2  2  a  a
# 3  3  3  b  b
# 4  4  4  b  b

Answer 2

没有plyr

vn1 <- names(d1)
vn2 <- gsub("x","y")

d2 <- data.frame(lapply(structure(.Data=vn1, .Names=vn2), 
                        FUN=function(X) recode(d1[[X]], "1:2 ='a'; 3:4 = 'b'")))

与plyr

d2 <- colwise(recode)(d1,recodes="1:2 ='a'; 3:4 = 'b'")
names(d2) <- vn2