使用R中的assign函数设置子集数据

Question

我是R（或者根本）编程的新手，我已经被困在一个问题上几天了。如果这个问题已经以某种形式存在，请道歉，但我看起来尽力而为，找不到任何东西。

我有多个名为pop1，pop2，pop3等的数据集，我正在尝试从for循环中为其指定的子集分配零值。通过反复试验，我发现了代码：

subset(get(paste("pop", 1, sep = "")), ind == 46, select = -ind)

返回我正在寻找的子集，但是当我尝试时：

for (i in 1:3) {
  assign(subset(get(paste("pop", i, sep = "")), ind == 46, select = -ind), 0)
}

我收到错误消息：

#Error in assign(subset(get(paste("pop", i, sep = "")), ind == 46, select = -ind),  : 
  #invalid first argument

在我看来，assign函数不会将子集作为其第一个参数，因为以下任何一个都不起作用：

assign(pop1[46, -1], 0)
assign(pop1$trait1, 0)
assign(subset(pop1, ind == 46), 0)

我有办法让这项工作成功吗？非常感谢，如果有更多信息可以帮助我，请告诉我。

Answer 1

正如评论中所提到的，通过列表更容易完成这些任务。

您可以将所有数据集保存在列表中。然后使用常规子设置，您可以进行常规分配。

df1=data.frame(a=1:10,b=c(1,2))
df2=data.frame(a=1:10,b=c(1,2))
l=list(df1,df2)
lapply(l, function(x) { x[which(x[,2]==1),2]=999; return(x)})

如果您想在循环中执行此操作，则可以使用解析和eval。

for(i in 1:2){
    txt=paste('df',i,'[df',i,'[,2]==1,2]','=999', sep = "")
    eval(parse(text = txt))
}