将120个(共10 in )csv文件读取到R中的DataFrame中，添加一个带有文件名的列

install.packages("readr")
install.packages("dplyr")

df <- data.frame()

file_path <- "文件路径"  # 替换为你的文件路径
file_list <- list.files(file_path, pattern = "*.csv", full.names = TRUE)  # 获取文件列表

for (file in file_list) {
  file_name <- basename(file)  # 获取文件名
  data <- readr::read_csv(file)  # 读取csv文件
  data$file_name <- file_name  # 添加文件名列
  df <- dplyr::bind_rows(df, data)  # 将读取的数据合并到DataFrame中
}

print(df)