R语言：将工作目录下所有.xlsx文件转为独立命名对象遇问题

原代码的核心问题 #

1. 类型不匹配：xlsx_objects是字符向量，无法存储read_xlsx返回的数据框对象，直接赋值会导致数据丢失或类型错误。
2. 正则匹配不精准：grep(".xlsx")中的.是正则通配符，会匹配任意字符后跟xlsx的文件（比如testxlsx.txt），应该转义为\\.xlsx来精准匹配后缀。

正确实现方法 #

方法一：for循环+assign生成独立对象 #

直接根据文件名（去掉后缀）创建全局环境中的独立对象：

# 设置工作目录
setwd("PATH TO THE FILE")
library(readxl)
library(tools)

# 获取所有以.xlsx结尾的文件（精准匹配）
xlsx_files <- list.files(pattern = "\\.xlsx$")

# 循环读取并创建同名对象
for (file in xlsx_files) {
  # 提取不带后缀的文件名作为对象名
  obj_name <- file_path_sans_ext(file)
  # 读取文件并赋值给对应对象
  assign(obj_name, read_xlsx(file, header = TRUE))
}

方法二：lapply+list2env（更简洁） #

先用lapply读取成命名列表，再转成独立对象，既保留文件名又保证header参数生效：

# 设置工作目录
setwd("PATH TO THE FILE")
library(readxl)
library(tools)

xlsx_files <- list.files(pattern = "\\.xlsx$")
# 读取文件并生成命名列表
xlsx_list <- lapply(xlsx_files, function(file) {
  read_xlsx(file, header = TRUE)
})
names(xlsx_list) <- file_path_sans_ext(xlsx_files)

# 将列表元素转为全局环境中的独立对象
list2env(xlsx_list, envir = .GlobalEnv)

关键说明 #

• file_path_sans_ext用于去除文件后缀，确保对象名和原文件名一致（不含.xlsx）。
• list.files(pattern = "\\.xlsx$")确保只匹配以.xlsx结尾的文件，避免误匹配。
• header = TRUE在两种方法中都明确传递，保证表头被正确识别。

内容的提问来源于stack exchange，提问作者Boris