如何在ggplot2条形图的成对条形之间添加间距

要给成对的条形组之间添加间距，核心思路是重新编码x轴的位置，把每对条形归为一个大组，通过手动控制x坐标实现组内并排、组间留空。以下是具体调整方案：

步骤1：预处理数据，添加分组变量 #

先给数据集新增两个变量，分别标记每个条形所属的大组（比如1&2为一组，3&4为一组）和组内位置：

# 加载dplyr（未安装的话先运行install.packages("dplyr")）
library(dplyr)

Germ <- Germ %>%
  mutate(
    G_num = as.numeric(G),  # 将原x轴变量G转为数值型
    group_pair = ceiling(G_num / 2),  # 生成大组标识，每两个G归为一组
    within_pair = ifelse(G_num %% 2 == 1, "WT", "at5g01950")  # 对应原fill的分组逻辑
  )

步骤2：修改绘图代码，手动控制x轴位置 #

通过计算x坐标实现组内条形并排，大组之间自动留出间距，同时同步调整箱线图的位置：

ggplot(Germ, aes(x = group_pair + ifelse(G_num %% 2 == 1, -0.3, 0.3), 
                 y = T, fill = within_pair)) +
  # 条形图：无需position="dodge"，靠x坐标控制并排，width设为0.6匹配偏移量
  geom_bar(position = "identity", width = 0.6) +
  # 箱线图：用position_nudge匹配条形的x位置，缩小width避免重叠
  geom_boxplot(width = 0.3, color = "black", alpha = 0.2,
               position = position_nudge(x = ifelse(G_num %% 2 == 1, -0.3, 0.3))) +
  # 调整x轴刻度，自定义大组标签
  scale_x_continuous(
    breaks = unique(Germ$group_pair),
    labels = paste0("Group ", unique(Germ$group_pair))
    # 若要显示原G的成对组合（如"1&2"），可改为：labels = paste0(Germ$G[seq(1, nrow(Germ), 2)], "&", Germ$G[seq(2, nrow(Germ), 2)])
  ) +
  theme_minimal() +
  theme(plot.background = element_rect(fill = "white"),
        panel.grid.minor = element_blank()) +
  labs(fill = "", x = "分组")

自定义间距的调整技巧 #

• 若要组内条形更紧凑：把偏移量从-0.3/0.3改成-0.2/0.2，同时将条形width设为0.4
• 若要大组之间的间距更窄：把x坐标计算改为group_pair * 0.8 + ifelse(...)，同时调整scale_x_continuous的breaks为unique(Germ$group_pair * 0.8)

这样就能实现你想要的成对条形组之间的间距效果了。

内容的提问来源于stack exchange，提问作者André Lima