在 R 中使用 assign 函数对数据进行子集化

Question

我是 R 编程的新手（或根本不熟悉），几天来我一直被一个问题所困扰。如果这个问题已经以某种形式存在，我深表歉意，但我已经尽我所能，但找不到任何东西。

我有多个名为 pop1、pop2、pop3 等的数据集，我试图在 for 循环中将零值分配给它们的指定子集。通过反复试验，我发现代码：

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

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

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 函数不会将子集作为其第一个参数，因为以下工作的 none：

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)})

如果您想在循环中执行此操作，则可以将 parse 与 eval 一起使用。

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

Subset Data with the assign Function in R