ggplot2：函数组合堆叠柱状图与折线图的共用图例问题

问题核心 #

当前代码存在三个关键问题导致图例异常：

• 折线图层直接赋值color和linetype，未通过aes映射到变量，ggplot不会为其生成图例
• generate_stacked_ggplot函数存在语法错误（括号不闭合、未定义的time_unit变量）
• 时间转换逻辑可能导致workload数据的时间轴无法正确匹配主图

修正方案 #

1. 修复基础函数语法错误 #

先修正generate_stacked_ggplot的语法问题，补充缺失的参数定义：

generate_stacked_ggplot <- function(data, column_name = "Group", time_unit = "minute") {
  p <- ggplot(data, aes(x = timeInterval, 
                        y = count, 
                        fill = .data[[column_name]])) +
    geom_bar(stat = "identity") +
    scale_fill_viridis_d(option = "D", alpha = 0.9) +
    scale_y_continuous(labels = scales::number_format(accuracy = 1, big.mark = ",")) +
    labs(x = "Timeline, NZST", 
         y = paste0("Number of Requests per ", time_unit),
         title = "Request Volume by Group",
         fill = column_name) +
    theme_minimal()
  
  return(p)
}

2. 修改折线图层的美学映射，生成图例 #

在add_workload_profile函数中，将折线的样式属性映射为固定类别，让ggplot识别并生成图例项：

add_workload_profile <- function(original_plot, workload_profile_data) {
  plot_build <- ggplot_build(original_plot)
  x_limits <- plot_build$layout$panel_scales_x[[1]]$range$range
  x_min <- x_limits[1]
  
  # 修正时间转换逻辑：将workload的时分秒转为时间间隔，叠加到主图起始时间
  workload_profile_data$timeInterval <- x_min + 
    as.difftime(workload_profile_data$timeInterval, format = "%H:%M:%S", units = "secs")
  
  ggplot_w_workload <- original_plot + 
    geom_line(data = workload_profile_data, 
              aes(x = timeInterval, y = count, 
                  color = "Workload Profile",  # 映射为固定类别，触发图例生成
                  linetype = "Workload Profile"),
              linewidth = 1,
              inherit.aes = FALSE) +
    # 手动指定折线的颜色和线型，匹配映射的类别
    scale_color_manual(values = c("Workload Profile" = "#FFA500")) +
    scale_linetype_manual(values = c("Workload Profile" = "dashed")) +
    # 调整图例布局，让填充色和折线样式清晰展示
    guides(fill = guide_legend(order = 1),
           color = guide_legend(title = NULL, order = 2),
           linetype = guide_legend(title = NULL, order = 2)) +
    theme(legend.position = "bottom")
  
  return(ggplot_w_workload)
}

3. 加载数据并运行修正后的代码 #

# 加载依赖包和数据
library(ggplot2)
library(scales)

data <- read.csv("data.csv", stringsAsFactors = FALSE)
data$timeInterval <- as.POSIXct(data$timeInterval, tz = "Pacific/Auckland")

workload <- read.csv("workload.csv", stringsAsFactors = FALSE)

# 生成并展示图表
main_plot <- generate_stacked_ggplot(data)
main_plot_line_added <- add_workload_profile(main_plot, workload)
print(main_plot_line_added)

关键修改说明 #

• 将折线的颜色、线型从直接赋值改为aes内的类别映射，让ggplot识别这是需要展示的图例项
• 使用scale_color_manual和scale_linetype_manual手动指定样式，避免"无共享级别"的警告
• 简化时间转换逻辑，确保workload数据的时间轴与主图完全对齐
• 通过guides调整图例顺序和标题，让堆叠柱填充色与折线样式在图例中清晰区分

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