dplyr-从目录导入所有文件后，需要添加CSV文件名

Question

已成功将目录中的所有文件组合到一个数据框架中 我正在寻找一种添加导入为addtional变量

的CSV文件的文件名

看起来像类似的东西

IMPORT的数据

fileName

data1 data2CSV2.CSV

library(dplyr)
library(readr)

write.csv(iris[1:5,], "iris1.csv")
write.csv(iris[6:10,], "iris2.csv")

lapply(list.files(pattern = "\\.csv$"), \(x) {
  read_csv(x, col_types = cols(.default = "c")) |>
  mutate(Filename=x)  }) |>
  bind_rows()

CSV1.CSV
	# A tibble: 10 × 7 ...1 Sepal.Length Sepal.Width Petal.Length Petal.Width Species Filename <chr> <chr> <chr> <chr> <chr> <chr> <chr> 1 1 5.1 3.5 1.4 0.2 setosa iris1.csv 2 2 4.9 3 1.4 0.2 setosa iris1.csv 3 3 4.7 3.2 1.3 0.2 setosa iris1.csv 4 4 4.6 3.1 1.5 0.2 setosa iris1.csv 5 5 5 3.6 1.4 0.2 setosa iris1.csv 6 6 5.4 3.9 1.7 0.4 setosa iris2.csv 7 7 4.6 3.4 1.4 0.3 setosa iris2.csv 8 8 5 3.4 1.5 0.2 setosa iris2.csv 9 9 4.4 2.9 1.4 0.2 setosa iris2.csv 10 10 4.9 3.1 1.5 0.1 setosa iris2.csv