如何解决ggplot2生成的堆叠条形图条形间距不均问题？

问题描述 #

使用ggplot2创建堆叠条形图时，部分条形间距明显变窄，但示例数据集运行相同代码显示正常，仅在自身数据集上反复出现该问题。示例代码如下：

a <- c("A", "B", "C", "D", "E", "F", "G", "H", "A", "B", "C","C", "D", "E", "F", "I", "J", "K", "L", "M", "N", "C", "C", "C", "C", "C", "O", "P", "R", "S", "T", "U", "W")
b <- c("kk", "ll", "ss", "ff", "kk", "ll", "ss", "ff", "kk", "ll", "ss", "ff", "kk", "ll", "ss", "ll", "ss", "ff", "kk", "ll", "ss", "ss", "ss", "ss", "ss", "ss", "kk", "ll", "ss", "ff", "kk", "ss", "ss")

df <- data.frame(a, b)

ggplot(df)+
  geom_bar(aes(y = fct_infreq(a), fill = b), color = "black")+ 
  theme_classic()+
  labs(x = "", y = "")+ 
  guides(fill=guide_legend(title = "Subunit"))+
  ggtitle("Variation in the number of a in b")+ 
  theme(plot.title = element_text(color="black", size=14, face="bold.italic", hjust = 0.5))+
  scale_x_continuous(breaks = seq(0, 20, by = 1))+
  expand_limits(x = c(0, 20))+
  scale_fill_brewer(palette="Dark2")

修复方案 #

• 清理无效因子水平：你的数据集可能存在未使用的隐形因子水平（比如处理过程中残留的空值、大小写差异或空格），导致ggplot为这些空水平预留位置，挤压有效条形的间距。执行以下代码清除无效水平：

# 方法1：转为字符再重新转因子
df$a <- as.factor(as.character(df$a))

# 方法2：用forcats包删除未使用的因子水平
library(forcats)
df$a <- fct_drop(df$a)

• 手动确认因子顺序与有效性：如果fct_infreq()自动排序时出现异常，先统计每个类别实际的频数，手动指定有效因子的顺序：

# 统计有效类别
freq_table <- table(df$a)
valid_levels <- names(freq_table[freq_table > 0])
# 按频数降序排列（对应fct_infreq的效果）
df$a <- factor(df$a, levels = rev(names(sort(freq_table))))

• 强制统一条形宽度：若上述方法无效，直接给geom_bar添加固定width参数，强制所有条形使用相同宽度：

ggplot(df)+
  geom_bar(aes(y = fct_infreq(a), fill = b), color = "black", width = 0.8)+ 
  # 其余绘图参数保持不变
  theme_classic()+
  labs(x = "", y = "")+ 
  guides(fill=guide_legend(title = "Subunit"))+
  ggtitle("Variation in the number of a in b")+ 
  theme(plot.title = element_text(color="black", size=14, face="bold.italic", hjust = 0.5))+
  scale_x_continuous(breaks = seq(0, 20, by = 1))+
  expand_limits(x = c(0, 20))+
  scale_fill_brewer(palette="Dark2")

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