如何为循环添加数据框的ggplot图表添加对应图例？

你的代码无法生成图例的核心原因是：颜色参数color = i写在了aes()外部，这属于直接给线条赋值颜色，ggplot不会为这种硬编码的颜色生成图例——只有当颜色通过aes(color = 数据列)映射到数据集的某一列时，ggplot才会自动创建对应图例。

正确的解决思路：合并数据+颜色映射 #

ggplot的设计逻辑更适合处理长格式的单一数据集，而非循环添加多个图层。我们可以先把所有数据框合并，同时添加一个标识数据源的列，再通过一次geom_line完成绘图并生成图例：

步骤1：合并所有数据框并添加数据源标识

# 遍历csv_files，给每个数据框添加source列后存入列表
df_list <- lapply(seq_along(csv_files), function(i) {
  df_name <- paste0("h", gsub(".csv", "", csv_files[i]))
  df <- get(df_name)
  # 添加标识列，记录当前数据对应的文件名/数据框名
  df$source <- df_name
  df
})

# 合并列表中的所有数据框为一个长格式数据集
combined_df <- do.call(rbind, df_list)

步骤2：用合并后的数据集绘图并生成图例

ggplot(combined_df, aes(x = DateTime, y = depth, color = source)) +
  geom_line() +
  labs(title = "Hobo Data",
       x = "",
       y = "Depth") +
  theme_minimal() +
  theme(legend.position = "top")

可选：自定义线条颜色

如果需要指定每条线条的颜色，可以用scale_color_manual()手动设置：

# 定义颜色向量，数量需与csv_files的长度一致
custom_colors <- c("#E63946", "#457B9D", "#1D3557", "#A8DADC")

ggplot(combined_df, aes(x = DateTime, y = depth, color = source)) +
  geom_line() +
  scale_color_manual(values = custom_colors, name = "数据源") # name可自定义图例标题
  labs(title = "Hobo Data",
       x = "",
       y = "Depth") +
  theme_minimal() +
  theme(legend.position = "top")

这样就能生成对应每条线条的图例，同时代码更简洁，符合ggplot的最佳实践。

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