为R语言ggplot柱状图设置蓝色填充与图例的技术咨询

问题核心在于**fill参数的作用层级冲突**：

• 第一段代码在aes()内设置fill = "Precipitation"，是将文本作为分类变量映射到填充色，因此会生成图例，但颜色采用ggplot默认配色，不是蓝色。
• 第二段代码在geom_bar()内直接设置fill = 'blue'，属于强制指定固定颜色，会覆盖aes()中的映射关系，导致图例消失。

以下是两种可行的解决方案：

方法一：用scale_fill_manual()指定颜色 #

保留aes()中的填充映射，通过手动颜色标度将映射的分类变量设置为蓝色，同时保留图例：

generate_precipitation_chart <- function(precip_data, chart_title) {
  precipitation_chart <- ggplot(data = precip_data, aes(x = Timestamp, y = `Total Precipitation (mm)`, fill = "Precipitation")) +
    geom_bar(stat = "identity") +
    labs(title = chart_title, y = "Total Precipitation (mm)", x = "Timestamp") +
    scale_fill_manual(values = "blue") +  # 手动指定映射的填充色为蓝色
    theme_minimal() +
    theme(legend.position = "right")  
    
  return(precipitation_chart)
}

方法二：规范数据映射逻辑（推荐） #

如果仅需单一系列的柱子带图例，可在数据中新增虚拟分类列，再通过映射+手动配色实现，这种方式更符合ggplot的设计逻辑，后续扩展多系列图表更方便：

generate_precipitation_chart <- function(precip_data, chart_title) {
  # 新增虚拟分类列
  precip_data <- precip_data %>% 
    mutate(Precipitation_Category = "Precipitation")
  
  precipitation_chart <- ggplot(data = precip_data, aes(x = Timestamp, y = `Total Precipitation (mm)`, fill = Precipitation_Category)) +
    geom_bar(stat = "identity") +
    labs(title = chart_title, 
         y = "Total Precipitation (mm)", 
         x = "Timestamp",
         fill = "降水类型") +  # 可自定义图例标题
    scale_fill_manual(values = "blue") +
    theme_minimal() +
    theme(legend.position = "right")  
  
  return(precipitation_chart)
}

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