R语言堆叠分组条形图：组间间距调整与样式修改求助

问题1：增大facet组（A/B/C等）之间的间距 #

你当前通过facet_wrap实现A/B/C这类分组，之前设置panel.spacing = unit(0, "line")导致组间无间距。只需调整横向面板间距即可，无需修改geom_bar的position参数：

• 将panel.spacing替换为panel.spacing.x = unit(0.8, "cm")（数值可按需调整），就能拉开各组之间的横向距离。

问题2：使用scale_fill_manual和geom_col_pattern时保持堆叠结构 #

需确保geom_col_pattern正确配置position与映射，步骤如下：

1. 先安装并加载ggpattern包（install.packages("ggpattern")）
2. 将geom_bar替换为geom_col_pattern，在aes中添加pattern = stack（让堆叠段对应不同图案，不需要图案可省略此映射）
3. 明确指定position = "stack"，通过scale_fill_manual自定义颜色，若用图案则搭配scale_pattern_manual设置图案类型

修改后的完整代码 #

set.seed(687532)
data <- data.frame(facet = rep(LETTERS[1:5], each = 6),
                   group = c("x", "y"),
                   stack = letters[1:3],
                   value = round(abs(rnorm(30)), 2))

library(ggplot2)
library(ggpattern)

ggplot(data, aes(x = group, y = value, fill = stack, pattern = stack)) + 
  geom_col_pattern(stat = "identity", position = "stack", width = 0.6) + 
  theme_classic() + 
  theme(panel.border = element_rect(colour = NA, fill=NA, size=0),
        text = element_text(size = 8, family = "sans"),
        panel.background = element_blank(),
        # 调整facet组间横向间距
        panel.spacing.x = unit(0.8, "cm"), 
        strip.background = element_blank(),
        strip.placement = "outside",
        plot.title.position = 'plot', 
        plot.title = element_text(hjust = 0.5),
        axis.text.x = element_text(angle = 90, vjust = 0.5, hjust=1)) + 
  scale_y_continuous(expand = c(0,0)) +  
  labs(x = "", y = expression(paste("Relative Abundance(%)"))) + 
  facet_wrap(~facet, strip.position = "bottom", scales = "free_x") +
  # 自定义填充颜色
  scale_fill_manual(values = c("a" = "#FF7F0E", "b" = "#1F77B4", "c" = "#2CA02C")) +
  # 自定义图案（不需要可删除此段）
  scale_pattern_manual(values = c("a" = "stripe", "b" = "crosshatch", "c" = "dot"))

关键说明 #

• 问题1核心：你用facet实现A/B/C分组，而非position_dodge，因此调整facet的横向面板间距即可，无需改动条形堆叠逻辑
• 问题2核心：必须给geom_col_pattern明确指定position = "stack"，同时确保fill（或pattern）正确映射到堆叠变量stack，避免因参数缺失导致堆叠失效

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