ggplot如何在同一图中绘制堆叠柱状图与双折线图

完全可以实现该需求，你只需要分别为堆叠柱形、折线定义独立的图层映射即可，以下是基于你提供的示例数据的可运行代码：

基础版（数值范围接近时使用） #

# 加载依赖包
library(tidyverse)

# 你提供的示例数据
data <- tibble(Month = 1:12,
               Brands = c(1,1,1,1,1,1,2,2,2,2,2,2),
               Generics = Brands + 1,
               Metric1 = c(5,5,5,5,5,5,6,6,7,8,9,10),
               Metric2 = c(10,10,11,11,12,13,14,15,16,17,18,19))

# 处理堆叠柱形所需的长格式数据
bar_data <- data %>% 
  select(Month, Brands, Generics) %>% 
  pivot_longer(cols = -Month, names_to = "柱形分类", values_to = "柱形数值")

# 处理折线图所需的长格式数据
line_data <- data %>% 
  select(Month, Metric1, Metric2) %>% 
  pivot_longer(cols = -Month, names_to = "折线指标", values_to = "折线数值")

# 绘图
ggplot() +
  # 堆叠柱形图层
  geom_col(data = bar_data, aes(x = Month, y = 柱形数值, fill = 柱形分类), position = "stack") +
  # 折线+数据点图层
  geom_line(data = line_data, aes(x = Month, y = 折线数值, color = 折线指标), linewidth = 1) +
  geom_point(data = line_data, aes(x = Month, y = 折线数值, color = 折线指标), size = 2) +
  # 样式调整
  labs(x = "月份", y = "数值") +
  theme_minimal()

双Y轴适配版（数值范围差异大时使用） #

如果堆叠柱形和折线的数值范围相差较大，可通过双Y轴做数值缩放适配，避免其中一类图表被压缩看不清：

ggplot() +
  geom_col(data = bar_data, aes(x = Month, y = 柱形数值, fill = 柱形分类), position = "stack") +
  # 对折线数值做缩放，适配左Y轴的柱形数值范围，示例中缩放比例为1/5，可根据实际数据调整
  geom_line(data = line_data, aes(x = Month, y = 折线数值/5, color = 折线指标), linewidth = 1) +
  geom_point(data = line_data, aes(x = Month, y = 折线数值/5, color = 折线指标), size = 2) +
  # 配置双Y轴
  scale_y_continuous(
    name = "堆叠柱形数值",
    sec.axis = sec_axis(~.*5, name = "折线指标数值")
  ) +
  labs(x = "月份") +
  theme_minimal()

你可以根据自身需求调整颜色、线条粗细、图例样式等参数，也可以直接修改缩放比例适配你的真实数据。

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