读取多个.txt文件并在R中添加标识文件名的新列

install.packages("readr")  # 用于读取文本文件
install.packages("dplyr")  # 用于数据处理和操作
library(readr)
library(dplyr)

folder_path <- "your_folder_path"  # 替换为你的文件夹路径
file_paths <- list.files(path = folder_path, pattern = "\\.txt$", full.names = TRUE)

data <- data.frame()  # 创建一个空的数据框

for (file_path in file_paths) {
  file_name <- basename(file_path)  # 获取文件名
  file_data <- read_delim(file_path, delim = "\t", col_names = TRUE)  # 根据实际情况选择分隔符
  file_data <- mutate(file_data, file_name = file_name)  # 添加新列
  data <- bind_rows(data, file_data)  # 将每个文件的数据合并到总数据框中
}

# 示例：计算每个文件中的行数
file_counts <- data %>%
  group_by(file_name) %>%
  summarise(row_count = n())

# 示例：绘制每个文件中的行数柱状图
library(ggplot2)
ggplot(file_counts, aes(x = file_name, y = row_count)) +
  geom_bar(stat = "identity") +
  xlab("文件名") +
  ylab("行数")