如何在多个数据帧上实现多个相同的功能并将输出检索到多个数据帧

Question

我有 16047 个 csv 文件，我使用 tor() 函数将它们加载到 R 中的全局环境中。所以现在我有 16047 个数据帧（命名为 LR1、LR2、....LR16047），每个数据帧有两列。现在我想对所有数据框做一些工作。

我的数据框如下所示：

 V1                                           V2
 
 suff_extn_AACCATTGGCTTTGTGCCATCGGCGGAAGTG_0  T
 suff_extn_AAAGGTCGCCACCATTTCCGGCAGCGATGCT_0  AAAACCTGGCTGCTGGCTCAGGCCGATTTTC

这是我要应用于所有数据帧的代码。

 pref_LR1 <- LR1 %>% separate(V1, c("Column1", "Column2", "MacroNode", "Column4"))
 pref_LR1$Column1 <- NULL
 pref_LR1$Column2 <- NULL
 pref_LR1$Column4 <- NULL

所以我正在为每个现有数据框创建新的数据框，并将第一列分开，然后删除其中的三列。

有没有一种方法可以像我们通常在其他编程语言中所做的那样用 R 编写，比如 for 循环，并像 [i] 一样访问它们以获取第 i 个数据帧。

我试图做一些在 R 中对多个文件应用相同功能时提到的事情

喜欢这个

# Create vector of file names in working direcotry
  files <- list.files() 
  files <- files[grep("csv", files)]  

#create empty list
 lst <- vector("list", length(files))

#Read files in to list
 for(i in 1:length(files)) {
   st[[i]] <- read.csv(files[i])
 }

#Apply a function to the list
  l <- lapply(lst, function(x) {
   //the work of the function
   return(x)
  }) 

但这并没有像我想要的那样给我单独的数据框。

谢谢

Answer 1

您可以使用paste0 创建数据框的名称并使用mget 将它们放入列表中。

list_df <- mget(paste0('LR', 1:16047))

当它们在一个列表中时，对多个数据帧进行操作会更容易。然后，您可以使用lapply 将您的函数应用于每个数据框。我认为您的 separate 调用可以通过一些正则表达式来简化，而不是创建 4 列然后删除其中 3 列，但是由于我们不知道您的数据看起来如何，所以我不会修改它。

new_df <- lapply(list_df, function(x) {
     x1 <- tidyr::separate(x, V1, c("Column1", "Column2", "MacroNode", "Column4"))
     x1$Column1 <- NULL
     x1$Column2 <- NULL
     x1$Column4 <- NULL
     x1
   })

这将为您提供new_df 中的数据框列表，如果您希望更改反映在您的原始数据框中，您可以使用list2env。

list2env(new_df, .GlobalEnv)