在 R 中具有分配函数的子集数据答案

【问题标题】：Subset Data with the assign Function in R在 R 中具有分配函数的子集数据
【发布时间】：2016-10-20 12:23:40
【问题描述】：

我是 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)

有什么方法可以让我完成这项工作吗？非常感谢，如果更多信息会有所帮助，请告诉我。

【问题讨论】：

把所有的pop放到一个list对象中，然后使用lapply来避免“get assign”的问题。
一个技巧是创建一个命令字符串并使用eval(parse(text=yourtext))。 a <- matrix(1:6,3,2) 然后eval(parse(text=sprintf("%s[%d,%d] <- 0", "a",1,1)))。在智能手机上很难输入 R 代码。

【解决方案1】：

如 cmets 中所述，通过列表更容易完成此类任务。

您可以将所有数据集保存在一个列表中。然后使用正则子设置，就可以做正则作业了。

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

【讨论】：

非常感谢！我无法让 lapply 为我需要的东西工作，因为我在 for 循环中发生了很多其他事情，我无法在 lapply 中工作（我并不是说这是不可能的，但我不能），但是我现在通过创建一个函数来对数据进行子集化，从而使代码可以用于我最初的目的，非常感谢！
我理解你的担心，所以这里是你可以使用的 for 循环。