ggplot2无间隙无重叠可变宽度100%堆叠柱状图实现问题

你遇到的核心问题是错误地使用分类变量作为x轴映射，同时位置计算逻辑有误，导致柱状图出现重叠/间隙，无法复现脊柱图的效果。以下是修正后的完整方案：

问题分析 #

原代码存在两处关键错误：

• 直接用分类变量x（A/B/C）作为x轴，但可变宽度柱状图需要连续型x轴位置来精准控制每个主类别的区间；
• pos的计算把6个堆叠子组的width全部累加，而实际上每个主类别（A/B/C）的宽度是重复值（比如A的两个子组width都是0.1），累加后位置完全偏移。

修正步骤与代码 #

1. 预处理数据：计算每个主类别的位置区间 #

先针对每个主类别（A/B/C）计算其在连续x轴上的起始位置、结束位置和中心位置，确保柱状图紧密排列无间隙：

library(ggplot2)

df <- data.frame(x = c("A","A","B","B","C","C"), 
                 group = c("L","R","L","R","L","R"),
                 width = c(0.1,0.1,0.50,0.50,0.40,0.40), 
                 y = c(0.75,0.25,0.5,0.5,0.9,0.1))

# 提取每个主类别的唯一宽度
widths_unique <- tapply(df$width, df$x, unique)
# 计算每个主类别的起始位置
starts <- c(0, cumsum(widths_unique)[-length(widths_unique)])
# 计算每个主类别的结束位置
ends <- cumsum(widths_unique)
# 计算每个主类别的中心位置（作为柱状图的x坐标锚点）
centers <- (starts + ends)/2

# 给原始数据添加中心位置列
df$x_center <- centers[match(df$x, names(widths_unique))]

2. 绘制无间隙可变宽度堆叠柱状图 #

用计算出的连续型中心位置作为x轴映射，指定柱状图宽度为主类别的宽度，即可实现无间隙、无重叠的堆叠效果：

g <- ggplot(df, aes(x = x_center, y = y, width = width, fill = group)) + 
  geom_col(stat = "identity", color = "white") +
  # 设置x轴刻度为中心位置，标签保留原分类名称
  scale_x_continuous(breaks = centers, labels = names(widths_unique)) +
  labs(x = "x")
g

关键细节说明 #

• 必须将x轴转为连续型坐标，用主类别的中心位置作为每个柱状图的x锚点，才能精准控制宽度和排列；
• 每个主类别的宽度要统一（你的数据已经满足，每个x对应的两个子组width相同），若不满足需先计算主类别的总宽度；
• geom_col默认使用position="stack"，确保子组自动堆叠显示，无需额外设置。

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