如何用R+ggplot将多CSV文件的分组均值绘入同一折线图

没问题，我来帮你搞定这个需求！核心思路是先把所有CSV文件的数据合并到一个统一的数据框中，同时标记每条数据来自哪个文件，之后就可以利用ggplot的颜色映射功能，轻松把多个文件的折线放在同一张图里了。下面是详细步骤和代码：

1. 加载所需工具包 #

首先确保你安装了tidyverse（它包含dplyr用于数据处理，ggplot2用于绘图，还有purrr用于批量处理文件），如果没装先执行安装命令：

install.packages("tidyverse")

然后加载包：

library(tidyverse)

2. 批量读取并预处理所有CSV文件 #

这一步会自动读取指定文件夹下的所有CSV文件，给每个文件的数据添加一个Source列标记文件名，同时统一完成Group的分组：

# 获取所有CSV文件的路径（把这里的路径改成你的文件所在文件夹）
csv_files <- list.files(path = "./your_csv_folder", pattern = "\\.csv$", full.names = TRUE)

# 批量读取、合并并预处理数据
combined_data <- map_df(csv_files, function(file_path) {
  # 读取文件（注意：如果你的CSV有表头，把header=FALSE改成header=TRUE）
  data <- read.csv(file = file_path, header = FALSE, sep = ",")
  # 给列命名（如果你的CSV没有表头，需要手动指定列名，比如和示例一致的ID、Data、Range）
  colnames(data) <- c("ID", "Data", "Range")
  # 添加来源文件名并完成分组
  data %>%
    mutate(
      Source = basename(file_path), # 提取纯文件名作为数据来源标记
      # 用case_when替代嵌套判断，逻辑更清晰
      Group = case_when(
        Range > 4.95 ~ 5.0,
        Range > 4.85 & Range < 4.95 ~ 4.9,
        Range > 4.75 & Range < 4.85 ~ 4.8,
        TRUE ~ NA_real_ # 处理不在上述区间的数据，标记为NA
      )
    )
})

3. 绘制多折线图 #

现在我们有了合并好的数据，直接用ggplot绘制，通过color = Source让不同文件的折线显示不同颜色：

ggplot(data = combined_data, aes(x = Group, y = Data, color = Source)) +
  # 计算每个分组的均值并绘制折线
  stat_summary(fun = mean, geom = "line", linewidth = 1) +
  # 可选：添加点标记均值位置，让数据更直观
  stat_summary(fun = mean, geom = "point", size = 2) +
  # 设置坐标轴标签
  xlab("Group") +
  ylab("Data Mean Value") +
  # 设置图例标题
  labs(color = "CSV File") +
  # 可选：用简洁的主题优化图的外观
  theme_bw()

一些注意事项 #

• 如果你原来的CSV文件有表头，记得把read.csv里的header=FALSE改成header=TRUE，并且确保列名和代码里的ID、Data、Range一致，或者调整代码里的列名匹配你的文件。
• 注意你原来代码里的拼写错误：myDAta应该是myData，这种小细节很容易导致绘图失败，要留意哦。
• 如果有些数据不在你定义的三个Group区间里，代码里用TRUE ~ NA_real_标记为NA，这些数据会被stat_summary自动忽略，不会影响均值计算。

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