如何在ggplot2的geom_col中交替fill与alpha的分组排列顺序？

要实现同透明度的不同填充色交替排列，关键是自定义分组变量覆盖默认的分组逻辑，具体实现步骤如下：

1. 生成组合分组变量：将透明度变量a和填充色变量f组合成新因子，按a的水平排序，每个a下包含两个f的水平，确保同透明度的不同填充色相邻。
2. 在aes中指定group参数为这个新变量，让ggplot按自定义分组规则排列柱子。
3. 保留原有的fill和alpha映射，保证颜色与透明度的设置不变。

修改后的代码如下：

library(tibble)
library(ggplot2)

set.seed(1)
tibble(
  y = runif(20),
  x = letters[rep(1:2, times = 10)],
  f = factor(LETTERS[rep(1:2, each = 10)], levels = LETTERS[1:2], ordered = TRUE),
  a = factor(rep(1:5, times = 4), levels = 1:5, ordered = TRUE)
) %>% 
  # 创建组合分组变量，按a的水平排序，每个a下依次包含f的两个水平
  mutate(group_var = factor(paste(a, f, sep = "_"),
                            levels = expand.grid(a = levels(a), f = levels(f)) %>% paste(.$a, .$f, sep = "_"))) %>%
  ggplot(aes(x, y, fill = f, alpha = a, group = group_var)) +
  geom_col(position = position_dodge2(width = 0.9)) +
  scale_alpha_discrete(range = c(.5, 1))

效果说明 #

• 新生成的group_var因子顺序为1_A,1_B,2_A,2_B,...，因此ggplot会按该顺序排列柱子，实现**深黄(A, alpha=1)→深紫(B, alpha=1)→浅黄(A, alpha=0.8)→浅紫(B, alpha=0.8)**的交替效果。
• position_dodge2(width = 0.9)用于调整柱子间距，避免出现重叠。

如果需要让填充色的交替顺序反转（比如深紫在前、深黄在后），只需修改expand.grid中f的顺序为levels(f)[2:1]即可。

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