使用position_nudge调整ggplot2堆叠条形图位置的绘图问题及需求

问题背景 #

需要调整ggplot2堆叠条形图的水平位置，使x轴刻度与条形左边缘对齐（而非默认的居中对齐），同时保证堆叠数据正确（每组百分比总和为100%）、y轴范围正常（最大值100%）。

示例数据：

data1 <- data.frame(
  Status = c("low", "low", "low", "intermediate", "intermediate", "intermediate", "high", "high", "high"),
  Age = c(8.0, 8.5, 9.0, 8.0, 8.5, 9.0, 8.0, 8.5, 9.0),
  Percent = c(19.04762, 30.23256, 38.16794, 45.23810, 39.53488, 25.95420, 35.71429, 30.23256, 35.87786)
)

原有方案的问题 #

直接使用position_nudge(x = 0.25)会破坏堆叠逻辑：该函数针对单个条形元素偏移，而非整个堆叠组，导致堆叠总和计算错误、y轴范围异常。

正确解决方案 #

以下两种方法均可实现需求，核心是对整个堆叠组进行偏移，同时调整x轴刻度匹配位置：

方法一：调整x映射配合刻度设置 #

通过修改x轴的映射值，让条形左边缘正好对齐原始Age刻度，再手动设置x轴刻度的位置和标签：

library(ggplot2)
bar_width <- 0.3

ggplot(data1, aes(x = Age + bar_width/2, y = Percent, fill = Status)) +
  geom_bar(stat = "identity", width = bar_width) +
  scale_x_continuous(
    breaks = unique(data1$Age),  # 刻度位置对应原始Age值
    labels = unique(data1$Age),  # 刻度标签显示原始Age
    limits = c(7.8, 9.5)         # 调整x轴范围避免条形截断
  ) +
  ylim(0, 100)  # 确保y轴覆盖0-100%范围

方法二：堆叠后整体偏移 #

利用ggplot2的位置加法，先完成条形堆叠，再对整个堆叠组进行偏移，同时匹配x轴刻度：

bar_width <- 0.3

ggplot(data1, aes(x = Age, y = Percent, fill = Status)) +
  geom_bar(stat = "identity", width = bar_width,
           position = position_stack() + position_nudge(x = bar_width/2)) +
  scale_x_continuous(
    breaks = unique(data1$Age),
    labels = unique(data1$Age),
    limits = c(7.8, 9.5)
  ) +
  ylim(0, 100)

效果说明 #

两种方法均能实现：

• 堆叠条形左边缘与x轴刻度精准对齐
• 每组百分比总和保持100%
• y轴范围正确覆盖0-100%

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