ggplot2重叠柱状图：设置分系列宽度及固定顶层显示的技术咨询

没问题，这两个需求完全可以实现，咱们直接修改代码来达成目标：

核心思路 #

1. 不同宽度的柱状图：不能用统一的width参数，需要分别调用geom_bar()，针对y1和y2的数据子集单独设置宽度。
2. 控制图层顺序：ggplot的图层是按代码书写顺序叠加的，先画底层的y2，再画顶层的y1，就能保证y1始终显示在上方。

另外要注意：你原来的y1和y2是字符型数据，绘图时会导致y轴为离散型，建议先转成数值型，这样y轴会是连续的，更符合柱状图的常规展示。

修改后的完整代码 #

library(ggplot2)
library(reshape)

# 修正数据类型：将字符型转为数值型
x = c("Band 1", "Band 2", "Band 3")
y1 = as.numeric(c("1","2","3"))
y2 = as.numeric(c("2","3","4"))

to_plot <- data.frame(x=x,y1=y1,y2=y2)
melted<-melt(to_plot, id="x")

# 分别绘制y2（底层，宽度0.5）和y1（顶层，宽度0.3）
ggplot(melted) +
  # 先画y2，作为底层
  geom_bar(data = subset(melted, variable == "y2"),
           aes(x=x, y=value, fill=variable),
           stat="identity", position="identity", alpha=.3, width = .5) +
  # 再画y1，作为顶层，覆盖在y2上方
  geom_bar(data = subset(melted, variable == "y1"),
           aes(x=x, y=value, fill=variable),
           stat="identity", position="identity", alpha=.3, width = .3)

代码解释 #

• 数据类型修正：用as.numeric()把y1和y2转成数值型，确保y轴是连续刻度，避免字符型导致的排序或显示问题。
• 分层绘制柱状图：
  • 先调用geom_bar()处理y2的数据，设置宽度为0.5，作为底层图形；
  • 再调用geom_bar()处理y1的数据，设置宽度为0.3，因为是后添加的图层，会自动覆盖在y2上方，满足“y1始终在顶层”的需求。
• 保持透明度：保留了你原来的alpha=.3，这样两个柱状图重叠部分可以清晰看到。

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