使用 R 在文件夾中的所有 excel 文件（以及 excel 文件中的所有工作表）中寫入新列

Question

所以，我在一個文件夾中有很多 excel 文件，每個文件都有多個工作表。 If the name of the excel file is 'xyz', I want each sheet of each excel file to contain a 'new_column' such that each row of the new column will contain the excel file name (in this example, 'xyz').

有沒有直接的方法可以做到這一點？ 我寧願直接更改文件夾中的文件，而不在 rstudio 中創建新的數據幀。

謝謝。

Answer 1

你可以使用雙lapply -

library(readxl)
library(writexl)

#Get a vector of xlsx filenames
filenames <- list.files(pattern = '.xlsx', full.names = TRUE)

lapply(filenames, function(x) {
  #Read the sheet names
  sheetname <- excel_sheets(x)
  #For each sheet read the data and create list of dataframe
  lapply(sheetname, function(y) {
    cbind(read_xlsx(x, y), filename = x)
  }) -> res
  #Assign names to the list
  names(res) <- sheetname
  #Write the data back
  write_xlsx(res, x)
})