如何在position_dodge(preserve='single')下将条形图向右对齐？

使用分组数据创建条形图并设置position_dodge(preserve='single')参数时，每个条形本应有对应的“自然”位置，但geom_col会让条形左对齐。比如下方代码生成的图里，最左侧的条形和下一组之间有很大间隙，希望能让这个条形向右对齐，求可行的实现方法（猜测可以添加零高度条形）。

library(tidyverse)

crossing(year = 2013:2023, qtr = 1:4) |> 
  slice(-(1:3)) |> 
  mutate(y = 1:n()) |> 
  ggplot(aes(year, y, fill = factor(qtr))) +
  geom_col(position = position_dodge(preserve = 'single'))

你说的添加零高度条形的思路完全可行，核心就是补全数据里缺失的分组（也就是2013年的1-3季度），把这些缺失分组的y值设为0，这样position_dodge就会按照完整的4个分组来分配每个条形的位置，单个条形就能自动居中对齐，不会偏左。

给你两种实现方式：

• 直接生成数据时补全0值：

library(tidyverse)

crossing(year = 2013:2023, qtr = 1:4) |> 
  mutate(y = ifelse(row_number() %in% 1:3, 0, row_number() - 3)) |> 
  ggplot(aes(year, y, fill = factor(qtr))) +
  geom_col(position = position_dodge(preserve = 'single'))

• 用complete函数补全分组，逻辑更清晰：

library(tidyverse)

crossing(year = 2013:2023, qtr = 1:4) |> 
  slice(-(1:3)) |> 
  mutate(y = 1:n()) |> 
  complete(year, qtr, fill = list(y = 0)) |> # 补全每个年份的所有季度分组，缺失的y填0
  ggplot(aes(year, y, fill = factor(qtr))) +
  geom_col(position = position_dodge(preserve = 'single'))

修改后，2013年的单个条形就会和后面年份的条形组对齐，之前的大间隙也就消失了。

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