你如何重新格式化使用R的xlsx文件的整个目录？

我正在尝试使用R重新格式化xlsx文件的整个目录。

我最初创build了一个可以为单个文件执行此操作的代码，但是此方法将要求我手动更新/input代码中文件目录中的每个单独的文件名。 我为单一格式创build的代码依赖于data.table来重新格式化xlsx文件。

现在我正在尝试使用下面的方法：

FilesDirec = list.files(pattern = "\\.xlsx") newcols <- c("WORD", "START", "END", "H/W", "IO TYPE", "ICD TYPE", "ICD DESCRIPTION") df_list <- list() for(i in seq_along(FilesDirec)){ df_list[[FilesDirec[i]]] <- read.xlsx(FilesDirec[i], sheetIndex = 1, header = TRUE) colnames(df_list[[FilesDirec[i]]]) <- newcols } 

for循环将目录中的所有xlsx文件读入df_list，并将标题重新标记为大写。

我现在需要在df_list中包含的数据集中添加额外的列。 创build的附加列引用行数据的xlsx文件的第5列。

我原来写的代码是这样做的

 icd <- read.xlsx("SomeFile.xlsx", sheetIndex = 1, header = TRUE) xx <- icd[,c(5)] DT <- data.table(icd) # This is the required column for "CAN TYPE" DT[, 'CAN TYPE' := ifelse( xx %in% c("AI", "DI", "EN", "BI"), "CI", ifelse( xx %in% c("DO", "AO", "OUT", "BO"), "CO", NA))] 

所以我的问题是如何引用位于df_list中的所有xlsx文件数据的第5列，以便基于xlsx文件的整个目录的第5列信息创build新的列？