嘿，我来帮你把重复的绘图代码改成自动化的for循环，这样几十上百个文件也能轻松处理！下面分两种常见场景给你具体实现方案：

场景1：所有文件的曲线叠加在同一张图上 #

这和你现在手动重复的逻辑一致，先画第一个文件的曲线，再把剩下的文件用points()叠加进去：

# 第一步：批量获取所有目标TXT文件的完整路径
file_path <- "/path/to/your/txt/files"  # 替换成你的文件实际路径
file_list <- list.files(
  path = file_path,
  pattern = "\\.txt$",  # 只匹配后缀为txt的文件
  full.names = TRUE     # 获取完整路径，避免路径错误
)

# 第二步：初始化第一张图（第一个文件）
first_data <- read.table(file_list[1])
plot(
  first_data, 
  type = 'l', 
  ylim = c(0,100), 
  xlim = c(350,900),
  main = "叠加所有TXT文件曲线",  # 自定义图标题
  xlab = "X轴标签",             # 按需修改
  ylab = "Y轴标签"              # 按需修改
)

# 第三步：循环处理剩余文件，叠加曲线
for (file in file_list[-1]) {
  current_data <- read.table(file)
  # 用不同颜色区分不同文件，这里用随机颜色，也可以指定固定色系
  points(current_data, type = 'l', col = sample(colors(), 1))
}

如果你想更规范地控制颜色（比如用彩虹色系），可以把循环改成按索引判断：

for (i in seq_along(file_list)) {
  current_data <- read.table(file_list[i])
  if (i == 1) {
    # 初始化图形
    plot(
      current_data, 
      type = 'l', 
      ylim = c(0,100), 
      xlim = c(350,900),
      main = "叠加所有TXT文件曲线",
      xlab = "X轴标签",
      ylab = "Y轴标签"
    )
  } else {
    # 叠加后续曲线，用彩虹色系区分
    points(current_data, type = 'l', col = rainbow(length(file_list))[i])
  }
}

场景2：每个文件单独生成一张图（并可选保存） #

如果需要给每个TXT文件单独绘图，甚至自动保存为图片文件，可以用下面的代码：

file_path <- "/path/to/your/txt/files"
file_list <- list.files(path = file_path, pattern = "\\.txt$", full.names = TRUE)

for (file in file_list) {
  current_data <- read.table(file)
  # 提取文件名作为图标题
  plot_title <- basename(file)
  
  # 绘制图形
  plot(
    current_data, 
    type = 'l', 
    ylim = c(0,100), 
    xlim = c(350,900),
    main = plot_title,
    xlab = "X轴标签",
    ylab = "Y轴标签"
  )
  
  # 可选：将图保存为PNG文件（路径和格式可自定义）
  output_png <- paste0(file_path, "/", gsub("\\.txt$", ".png", basename(file)))
  png(output_png)
  plot(
    current_data, 
    type = 'l', 
    ylim = c(0,100), 
    xlim = c(350,900),
    main = plot_title,
    xlab = "X轴标签",
    ylab = "Y轴标签"
  )
  dev.off()
}

一些注意事项 #

• 文件格式一致性：确保所有TXT文件都是相同的结构（比如都是两列数据，无表头或表头一致），如果有表头，记得在read.table()里加上header = TRUE参数。
• 路径问题：一定要确认file_path是正确的文件目录，避免找不到文件的错误。
• 颜色自定义：如果不想用随机颜色或彩虹色，可以自己定义一个颜色向量，比如color_vec <- c("red", "blue", "green", ...)，然后循环里用col = color_vec[i]。

内容的提问来源于stack exchange，提问作者MatlabDumbDumb