如何在同一图中绘制重叠柱状图？ggplot代码报错求助

你的报错核心原因是：默认的geom_bar()会使用stat="count"来统计x轴每个类别的出现次数，但你的数据已经是预先聚合好的数值（clicks和impressions），这种统计逻辑和你的需求完全冲突，所以才会抛出stat_count() must not be used with a y aesthetic这类报错（你没写完的报错信息应该是这个）。

下面给你两种解决方案，推荐第二种更符合ggplot设计理念的做法：

方案1：直接修改原有代码，适配预聚合数据 #

我们需要告诉geom_bar()不要自动计数，而是直接使用数据里的y值，同时设置柱子重叠的位置参数：

library(ggplot2)

# 先构造你的数据框（如果还没创建的话）
weekday_count <- data.frame(
  day_of_week = 0:2,
  clicks = c(65181, 54658, 50020),
  impressions = c(3778745, 2912405, 3016874)
)

# 绘制重叠柱状图
ggplot(weekday_count, aes(x = factor(day_of_week))) + 
  # 关键：stat="identity"表示直接使用y列的数值，position="identity"让柱子重叠
  geom_bar(aes(y = clicks), colour = "red", fill = "red", stat = "identity", position = "identity", alpha = 0.5) + 
  geom_bar(aes(y = impressions), colour = "green", fill = "green", stat = "identity", position = "identity", alpha = 0.5) +
  # 优化图表可读性
  labs(x = "星期几（0=周日，1=周一...）", y = "数值", title = "按星期划分的点击量与曝光量重叠柱状图") +
  theme_minimal()

注意：因为impressions的数值远大于clicks，直接重叠后点击量的柱子会几乎被覆盖，所以我加了alpha=0.5让重叠部分半透明，你也可以调整透明度或者后续考虑双y轴（后面会提到）。

方案2：转为长格式数据（更推荐） #

ggplot的设计逻辑更适配长格式数据，我们可以用tidyr包把宽数据转成长数据，这样代码更简洁，也更容易维护：

library(ggplot2)
library(tidyr)

# 宽数据转长数据
weekday_long <- pivot_longer(
  weekday_count, 
  cols = c(clicks, impressions),  # 要转换的列
  names_to = "指标类型",          # 新列：存储原列名（clicks/impressions）
  values_to = "数值"              # 新列：存储对应的值
)

# 绘制重叠柱状图
ggplot(weekday_long, aes(x = factor(day_of_week), y = 数值, fill = 指标类型)) +
  geom_bar(stat = "identity", position = "identity", alpha = 0.5) +
  # 自定义颜色
  scale_fill_manual(values = c("clicks" = "red", "impressions" = "green")) +
  labs(x = "星期几（0=周日，1=周一...）", y = "数值", title = "按星期划分的点击量与曝光量重叠柱状图") +
  theme_minimal()

这种方法的好处是：如果后续要添加新的指标（比如转化率），只需要修改转长数据的代码，不需要重复写geom_bar()，而且图例可以自动生成，不需要手动配置。

优化建议：解决数值差异过大的覆盖问题 #

因为你的曝光量是点击量的几十倍，直接重叠后点击量几乎看不到，这里提供两种优化思路：

1. 双y轴：给两个指标设置不同的y轴刻度

ggplot(weekday_count, aes(x = factor(day_of_week))) + 
  geom_bar(aes(y = clicks), colour = "red", fill = "red", stat = "identity", position = "identity", alpha = 0.7) + 
  geom_bar(aes(y = impressions / 100), colour = "green", fill = "green", stat = "identity", position = "identity", alpha = 0.7) +
  # 设置双y轴：右侧轴是左侧的100倍
  scale_y_continuous(
    name = "点击量",
    sec.axis = sec_axis(~ . * 100, name = "曝光量")
  ) +
  labs(x = "星期几", title = "点击量与曝光量重叠柱状图（双y轴）") +
  theme_minimal()

2. 缩放点击量：将点击量乘以一个系数，让它和曝光量的量级接近，然后在图例中标注说明。

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