命名嵌套列表并删除 lapply（...） 括号内的重复行（如何删除多余的 <-（箭头））

问：

as这是嵌套列表的full_joined DataFrame，其中包含来自 9 个文件夹的文件，每个文件夹有 8-11 个 CSV 文件。

我已经成功地安排了一个嵌套列表，以便：

as[[1]]是文件夹的全联接数据帧 是文件夹的全联接数据帧。 . .是文件夹的全连接数据帧as1as[[2]]as2as[[9]]as9

用lapply

这是我的完整代码：

as <- data.frame()
df <- data.frame()
dfs <- data.frame()

data_dir <- "C:/Users/thepr/Documents/data/as"
num_fu <- 1 : 9
pat <- paste0(data_dir, num_fu)

as_list <-lapply(pat, function(x) {
  files <- list.files(x, pattern = "\\.csv$", full.names = TRUE)
  names(files) <- str_sub(basename(files), 1, 6)
  Reduce(full_join, lapply(files, read.csv))
})


#This is what I have tried
names(as_list) <- paste0("as", num_fu)
as <- Reduce(full_join, as_list)
as <- as[!duplicated(as.list(as))]

1. 我想命名一个嵌套列表，以便

>names(as_list)
as1 as2 as3 ... as9

>names(as_list[[1]])
as1
>names(as_list[[2]])
as2
.
.
.
>names(as_list[[9]])
as9

2. 我想得到这部分代码，它在内部之外或不那么冗余的东西。lapplylapply(...)

names(as_list) <- paste0("as", num_fu)
as <- Reduce(full_join, as_list)
as <- as[!duplicated(as.list(as))]

谢谢。