R ggplot2 对同一类型文件批量循环画图

主要是学习如何循环处理，至于画什么图替换成自己的代码即可

# 清空工作环境中的所有对象
rm(list = ls())

# 导入必要的包
library(dplyr)
library(ggplot2)

# 设置文件夹路径和文件名模式
folder_path <- "D:/result"
file_pattern <- "*.tsv"

# 获取匹配文件名模式的文件列表
temp <- list.files(path = folder_path, pattern = file_pattern)
temp

# 获取当前工作目录中的文件列表
c <- dir()

# 遍历文件列表
for (i in 1:length(temp)) {
  # 打印处理进度的百分比
  print(percent(i / length(temp)))
  
  # 读取文件并处理数据
  file <- read.table(temp[i], header = TRUE, sep = "\t")
  b <- abs(file$Value)
  a <- data.frame(Name = file$Name, Value = b)
  name <- gsub(".tsv", "", c)[i]
  
  # 绘制并保存图像
  plot <- a %>%   # a为处理好的数据框
  arrange(Value) %>%   # 按照Value进行升序排列，使得柱状图按Value从小到大排列
  mutate(Name = factor(Name, levels = Name)) %>%   # 将Name转换成有序因子变量，按照Name的顺序排列
  ggplot(aes(x = Name, y = Value)) +   # 设置x轴为Name，y轴为Value
    geom_bar(aes(fill = Value), stat = "identity", alpha = 0.6, width = 0.4) +   # 绘制柱状图，按Value染色，使用实际值作为柱子的高度，设置不透明度和宽度等参数
    coord_flip() +   # 翻转坐标轴，使得x轴显示在y轴的位置
    xlab("") +   # 设置x轴标签为空字符串
    theme_bw() +   # 使用ggplot2主题，将背景设置为白色
    theme(axis.text = element_text(size = 12, face = "bold"))   # 设置坐标轴标签字体大小、粗细等参数

ggsave(file = paste0(name, ".png"), plot, width = 10, height = 10, units = "in", dpi = 600)   # 将绘制好的图像保存到本地文件系统，并设置图像的宽度、高度、单位和分辨率等参数
}