如何解决geom_bar添加facet_wrap后条形堆叠出现间距的问题

问题原因 #

分面后每个子图的x轴离散元素数量不同，ggplot默认的条形宽度和轴边距设置会导致条形之间出现空隙；同时未明确设置条形宽度为1，无法填满x轴的离散刻度空间。

解决步骤 #

1. 先对数据按Value排序（确保条形按数值顺序排列）
2. 设置条形宽度为1：在geom_bar中添加width = 1，让条形完全填充每个x刻度的空间
3. 去除x轴边距：用scale_x_discrete(expand = c(0, 0))去掉x轴左右的空白区域
4. 分面时使用自由x轴：facet_wrap(~Condition, scales = "free_x")，让每个子图只显示自身的x轴元素，避免因元素数量不同产生间距

完整代码示例 #

首先加载数据：

# 加载数据
df <- structure(list(Index = structure(1:30, .Label = c("1", "2", "3", 
"4", "5", "6", "7", "8", "9", "10", "11", "12", "13", "14", "15", 
"16", "17", "18", "19", "20", "21", "22", "23", "24", "25", "26", 
"27", "28", "29", "30"), class = "factor"), Group = c("A", "A", 
"A", "A", "A", "A", "A", "A", "A", "A", "A", "A", "A", "A", "A", 
"B", "B", "B", "B", "B", "B", "B", "B", "B", "B", "B", "B", "B", 
"B", "B"), Condition = c("Easy", "Hard", "Easy", "Hard", "Easy", 
"Hard", "Easy", "Hard", "Easy", "Hard", "Easy", "Hard", "Easy", 
"Hard", "Easy", "Hard", "Easy", "Hard", "Easy", "Hard", "Easy", 
"Hard", "Easy", "Hard", "Easy", "Hard", "Easy", "Hard", "Easy", 
"Hard"), Value = c(-0.75, -0.44, -0.27, 0.49, 0.04, 0.74, -0.95, 
-0.59, 0.73, 0.93, -0.29, -0.47, -0.01, -0.65, -0.02, 0.32, -0.56, 
-0.66, 0.95, -0.13, -0.42, -0.25, -0.07, 0.06, 0.46, -0.74, -0.25, 
-0.37, -0.82, 0.86)), row.names = c(NA, 30L), class = "data.frame")

然后排序并绘图：

library(ggplot2)

# 按Value排序数据
df_sorted <- df[order(df$Value), ]

# 绘制无间距的分面条形图
ggplot(df_sorted, aes(x = Index, y = Value, fill = Group)) +
  geom_bar(stat = "identity", width = 1, position = "stack") +
  facet_wrap(~Condition, scales = "free_x") +
  scale_x_discrete(expand = c(0, 0)) +
  scale_y_continuous(expand = c(0, 0)) # 可选：去除y轴边距，让条形贴合底部

效果说明 #

• width = 1让每个条形完全占据x轴刻度的空间，消除条形间的横向间距
• scale_x_discrete(expand = c(0,0))去除x轴左右的空白，让条形贴合分面的边缘
• scales = "free_x"确保每个分面只显示对应Condition下的Index，避免因不同分面x元素数量差异导致的间距

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