如何在R中对多个数据集应用同一函数

Question

 df1 <- data.frame(x = rep(3, 5), y = seq(1, 5, 1), ID = letters[1:5])
 df2 <- data.frame(x = rep(5, 5), y = seq(2, 6, 1), ID = letters[6:10])
#I define a function:
PasteTwoColumn <- function(x) 
{
  x$col2_col3 <- paste(x[,2], x[,3], sep = "_")
  return(x)
}
#apply the function to the df1, it works.
df1 <- PasteTwoColumn(df1)
# but I failed by an lappy function, because it returns a list, not the dataframe
mylist <- list(df1, df2) 
result <- lapply(mylist, PasteTwoColumn)

我想继续将此函数应用于我的所有数据页，例如。df1,df2,df3...DF100。输出文件应保持相同的dataframe类型和名称。

lapply函数不起作用，因为它返回一个列表，而不是单独的数据帧。

Answer 1

我们可以将数据集保存在列表中，并使用lapply在列表上循环

lst1 <- lapply(list(df1, df2), PasteTwoColumn)

如果有许多数据集，请使用mget将数据集的值获取到列表中

lst1 <- lapply(mget(paste0('df', 1:100)), PasteTwoColumn)

或者，我们也可以使用ls代替粘贴

lst1 <- lapply(mget(ls(pattern = '^df\\d+$')), PasteTwoColumn)

list2env(lst1, .GlobalEnv) #not recommended though

for(obj in paste0("df", 1:100)) {
      assign(obj,  PasteTwoColumn(get(obj)))
  }