R文件批量读取并批量命名

#文件批量读取且以文件名命名每一个文件，这里以excel文件读取为例

setwd("E:/###########")

myexcelfile = list.files(pattern = "*.xlsx") 

list2env(
  lapply(setNames(myexcelfile, make.names(gsub("*.xlsx$", "", myexcelfile))),
         read_excel), envir = .GlobalEnv)  

#gsub(pattern, replacement, x)在这里是将.xlsx这个后缀名替换为空，即匹配掉这个后缀名

#以下是来自一个大佬用tidyverse复现了这个功能，链接如下：https://jiaxiangbu.github.io/r_code/r-base/bulk-importing-and-name-obj