如何在R的ggplot中缩小箱线图组间间距且不改变箱线宽度？

要在不改变箱线图宽度的前提下缩小组间（Species类别之间）的间距，可通过以下两种方式实现：

方法一：转换为连续轴精确控制组间距离 #

通过将离散的Species转换为数值型位置，手动缩小组间的绝对间距，同时固定组内箱线的间距以保持宽度：

library("ggplot2")
data(iris)
iris_new <- iris
iris_new$new <- letters[1:2]

# 将Species转换为数值位置，乘以小于1的系数缩小组间间距
iris_new$x_pos <- as.numeric(factor(iris_new$Species)) * 0.7

ggplot(iris_new, aes(x = x_pos, y = Sepal.Length, fill = new)) +
  geom_boxplot(position = position_dodge(width = 0.6)) + # 固定组内箱线间距，维持宽度
  scale_x_continuous(
    breaks = c(0.7, 1.4, 2.1), 
    labels = levels(factor(iris_new$Species))
  ) +
  theme(axis.text.x = element_text(vjust = 0.5))

代码说明 #

• 用as.numeric(factor())把离散类别转为1、2、3的数值，乘以系数（如0.7）直接缩小组间的绝对距离；
• position_dodge(width = 0.6)固定组内两个箱线的间距，确保单个箱线的宽度不受组间调整影响；
• scale_x_continuous将调整后的数值位置映射回原Species标签，保证图表可读性。

方法二：调整离散轴空白间接缩小组间相对距离 #

无需转换轴类型，通过减少x轴两侧空白、固定组内间距来缩小组间的相对距离：

ggplot(iris_new, aes(x = Species, y = Sepal.Length, fill = new)) +
  geom_boxplot(position = position_dodge2(padding = 0.1, preserve = "single")) +
  scale_x_discrete(expand = c(0.05, 0)) # 减少x轴左右两侧空白，缩小组间相对间距

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