读取Excel文件的文件夹，并将单个表作为单独的df＆extim

Question

我有一个excel文件的文件夹，每个文件都包含多个图纸。每个WB中的床单都相同。我正在尝试将所有Excel文件作为单独的数据帧导入一个特定的命名表。我已经能够进口它们；但是，名称成为df_1，df_2，df_3等...我一直在尝试将Excel文件名的第一个单词命名，并使用它来识别DF。

Excel文件名称“ AAPL多片”的示例该表将被命名为“ balance”，我将作为DF导入。结果，我希望“ AAPL Balance DF”。

但是，最接近我所在的代码，但是，它将每个数据框架称为df_1，df_2等。

library(purrr)
library(readxl)

files_list <- list.files(path = 'C:/Users/example/Drive/Desktop/Total_Related_Data/Analysis of Data/',
pattern = "*.xlsx",full.names = TRUE)

files_list %>% 
    walk2(1:length(files_list),
          ~ assign(paste0("df_", .y), read_excel(path = .x), envir = globalenv()))

我尝试在过去0函数中使用文件路径变量'file_list'标记它们并最终出现，

df_c：/ /desktop/total_releated_data/数据/.xlsx2的分析，

依此类推。

我试图列出要使用的文件名列表。这读取文件名并创建了一个列表，但我无法与上面的代码一起使用。

files_Names<-list.files(path='C:/Users/example/Drive/Desktop/Total_Related_Data/Analysis of Data/', pattern=NULL, all.files=FALSE, full.names=FALSE)

因此， 列表中所有文件的data.xlsx的AAPL分析。

Answer 1

您可以执行以下操作（请注意，我正在使用OpenXLSX软件包在Excel文件中读取，但是您当然可以用ReadXl替换该部分）：

library(openxlsx)
library(tidyverse)

Starting with your `files_list` we can do:

# using lapply to read in all files and store them as list elements in one list
list_of_dfs <- lapply(as.list(files_list), function(x) readWorkbook(x, sheet = "Balance"))

# Create a vector of names based on the first word of the filename + "Balance"
# Note that we can't use empty space in object names, hence the underscore
df_names <- paste0(str_extract(basename(files_list), "[^ ]+"), "_Balance_df")

# Assign the names to our list of dfs
names(list_of_dfs) <- df_names

# Push the list elements (i.e. data frames) to the Global environment
# I highly recommend NOT doing this. I'd say in 99% of the cases it's better to continue working in the list structure or combine the individual dfs into one large df.
list2env(list_of_dfs, env = .GlobalEnv)

Answer 2

我希望我可以在没有代码的情况下重现您的示例。我将创建一个功能，以获得新的文件名的更多控制权。

我建议：

library(purrr)
library(readxl)
library(openxlsx)

target_folder <- 'C:/Users/example/Drive/Desktop/Total_Related_Data/Analysis of Data'

files_list <- list.files(path = target_folder,
                         pattern = "*.xlsx", full.names = TRUE)

tease_out <- function(file) {
  data <- read_excel(file, sheet = "Balance")
  filename <- basename(file) %>% tools::file_path_sans_ext()
  new_filename <- paste0(target_folder, "/", fileneame, "Balance df.xlsx")
  
  write.xlsx(data, file = new_filename)
}

map(file_list, tease_out)

让我知道它是否有效。我认为您只是针对“余额”表的目标？