在多个Data.Tables（或Data.Frames）中创建条件变量

Question

我想在多个data.tables（或data.frames）中执行相同的操作。例如，我想在所有data.tables中的相同规则上创建相同的变量条件。

df1 <- data.frame(var1 = c(1, 2, 2, 2, 1), var2 =c(20, 10, 10, 10, 20), var3 = c(10, 8, 15, 7, 9))
df2 <- data.frame(var1 = c(1, 2, 2, 2, 1), var2 =c(20, 10, 10, 10, 20), var3 = c(10, 8, 15, 7, 9))
df3 <- data.frame(var1 = c(1, 2, 2, 2, 1), var2 =c(20, 10, 10, 10, 20), var3 = c(10, 8, 15, 7, 9))

列表.df

list.df<-vector('list',3)
for(j in 1:3){
  name <- paste('df',j,sep='')
  list.df[j] <- name
}

我的（坏的）试探性的：

for(i in 1:3){
  a<-get(paste(list.df[[i]], "$var1", sep=""))
  b<-get(paste(list.df[[i]], "$var2", sep=""))
  name<-paste(list.df[[i]], "$var.new", sep="")
  assign(name, ifelse(a==2 & b==10, 1, 0))
}

很明显，r不能像我现在所做的那样创建这个新变量，因为我会收到一条错误消息“Object not found”。有没有关于如何修复我的坏代码的线索？我有一种感觉dplyr可以帮助我，但我不知道如何帮助我。

Answer 1

在使用paste创建对象名字符串之后，我们可以使用mget，以便获得值IE。列表中的data.frames。我们通过创建二进制变量('var new')来循环list(lapply(...，)和transform每个数据集。我们可以在逻辑语句上使用ifelse，也可以使用+来将true/false强制为1/0。

lst <- lapply(mget(paste0('df', 1:3)), transform, 
           varNew = +(var1==2 & var2==10))

如果需要更新原始对象，可以使用list2env。

list2env(lst, envir = .GlobalEnv)
df1
df2