将多个文件与不同的工作表名称组合到数据框架中

Question

我正在尝试结合两个功能。

第一个函数可以读取和导入每个 *.xlsx文件中的单独文件夹

library(readxl)
library(tidyverse)
file.list <- list.files(pattern='*.xlsx')
df.list <- lapply(file.list, read_excel)

，而第二个功能可以使用多个工作表工作表读取单个文件，并将A组合到一个数据框架中。

# set the working directory 
setwd(path)
  
# accessing all the sheets 
sheet = excel_sheets("Gfg.xlsx")
  
# applying sheet names to dataframe names
data_frame = lapply(setNames(sheet, sheet), 
                    function(x) read_excel("Gfg.xlsx", sheet=x))
  
# attaching all dataframes together
data_frame = bind_rows(data_frame, .id="Sheet")

因此，任何人都可以帮助我如何在一个或多个中合并这两个功能，以在第一个功能中添加可能的可能性，以将表格名称应用于数据帧名称，然后在数据框架中附加在一起？

Answer 1

你需要这个吗？

library(readxl)
library(tidyverse)

setwd("/Users/harshvardhan/Desktop/Dump/codes/sheets/")

read_dfs = function()
{
   # this has to initilised intelligently based on what the variables are
   df_complete = tibble(var1 = numeric(),
                        var2 = numeric(),
                        var3 = numeric())
      
   # listing all files in the directory
   file.list = list.files(pattern='*.xlsx')
   
   # first loop for all files
   for (book in file.list)
   {
      # getting sheets in this workbook
      sheet = excel_sheets(book)
      
      # second loop for all sheets
      for (s in sheet)
      {
         df = read_excel(path = book, sheet = s)
         df_complete = rbind(df_complete, df)
      }
      
   }
   
   return(df_complete)
}

read_dfs()
#> # A tibble: 20 × 3
#>     var1  var2  var3
#>    <dbl> <dbl> <dbl>
#>  1     1     2     7
#>  2     2     3     8
#>  3     3     4     9
#>  4     4     5    10
#>  5     5     6    11
#>  6     1     2     7
#>  7     2     3     8
#>  8     3     4     9
#>  9     4     5    10
#> 10     5     6    11
#> 11     1     2     7
#> 12     2     3     8
#> 13     3     4     9
#> 14     4     5    10
#> 15     5     6    11
#> 16     1     2     7
#> 17     2     3     8
#> 18     3     4     9
#> 19     4     5    10
#> 20     5     6    11

^由