在名称模式中使用迭代元素

Question

我想使用 for 循环遍历列表，将以下函数应用于所有列表元素：

new_x = do.call("rbind",mget(ls(pattern = "^x.*")))

其中x 是数据框的特定名称模式。 如何遍历列表元素 i 是我的函数的名称模式的列表？ 目标是得到这样的东西：

for (i in filenames){
  i = do.call("rbind",mget(ls(pattern = "^i.*")))
}

所以我的问题基本上是如何在名称模式中使用i，所以我可以使用循环将数据框xpart1、xpart2、xpart3 的单独部分合并到@987654329 @; ypart1、ypart2、ypart3 到 y 等等......

提前谢谢你！

Answer 1

如果我们使用for 循环，那么一个选项

v1 <- ls(pattern = "^x.*")
lst1 <- vector('list', length(v1))
for(i in seq_along(v1)){
        lst1[[i]] <- get(v1[i])
    }

do.call(rbind, lst1)

---

或者如果我们需要使用i来创建pattern，我们可以使用paste

lst1 <- vector('list', length(filenames))
names(lst1) <- filenames
for(i in filenames){
       lst1[[i]] <- get(ls(pattern = paste0(i, ".*")))
 }
do.call(rbind, lst1)

注意：get 返回单个对象的值，而mget 在list 中返回多个对象。如果我们使用for循环，我们假设它在循环中返回一个对象，并且只需要get

---

根据OP的说明，我们也可以使用mget

xs <- paste0("xpart", 1:100)
ys <- paste0("ypart", 1:100)
xsdat <- do.call(rbind, mget(xs))
ysdat <- do.call(rbind, mget(ys))