如何在R语言中缩小条形图的条形间距？

首先修正你代码里的两处关键问题：

• 所有 %> 需改为 %>%，这是dplyr管道操作符的正确语法
• 读取tsv文件时要指定分隔符 sep="\t"，否则会出现数据读取错误

接下来针对条形间距过大的问题，通过调整 position_dodge() 和 geom_bar() 的参数即可解决，以下是修改后的完整代码及说明：

修改后的完整代码 #

library(ggplot2)
library(dplyr)

# 正确读取tsv文件
interaction_data <- read.csv("association.tsv", sep = "\t")

interaction_data <- interaction_data %>%
  mutate(interaction_type = case_when(
    v1 == 'Bacteria' & v2 == 'Bacteria' ~ 'Bacteria-Bacteria',
    (v1 == 'Bacteria' & v2 == 'Archaea') | (v1 == 'Archaea' & v2 == 'Bacteria') ~ 'Bacteria-Archaea',
    v1 == 'Archaea' & v2 == 'Archaea' ~ 'Archaea-Archaea'
  ),
  interaction_sign = ifelse(asso > 0, 'Positive', 'Negative'))

# 统计交互数，添加.groups="drop"避免分组残留警告
interaction_counts <- interaction_data %>%
  group_by(interaction_type, interaction_sign) %>%
  summarise(count = n(), .groups = "drop")

# 调整间距后的分组条形图
ggplot(interaction_counts, aes(x = interaction_type, y = count, fill = interaction_sign)) +
  geom_bar(stat = 'identity', position = position_dodge(width = 0.8), width = 0.7) + 
  # 核心调整：让dodge值与条形宽度接近，缩小分组内/组间间距
  scale_fill_manual(values = c("Positive" = "hotpink2", "Negative" = "royalblue3")) +
  labs(x = '', y = 'Number of Interactions',
       fill = 'Interaction type') +
  theme_minimal() +
  theme(axis.title = element_text(size = 14),
        axis.text = element_text(size = 12),
        legend.title = element_text(size = 12),
        legend.text = element_text(size = 10),
        panel.grid.major = element_blank(),  
        panel.grid.minor = element_blank()) +
  scale_x_discrete(expand = c(0.05, 0)) # 缩小x轴两侧空白，让图表更紧凑

间距调整的核心逻辑 #

1. position_dodge(width = 0.8)：控制同一分组（如同一interaction_type下的正负条形）的间距，值越小，分组内条形越紧凑，同时组间的相对间距也会缩小
2. geom_bar(width = 0.7)：增大单根条形的宽度，减少分组间的空白占比，让整体布局更紧凑
3. scale_x_discrete(expand = c(0.05, 0))：去除x轴左右两侧的默认冗余空白，进一步压缩图表的整体间距

如果需要更精细的调整，可以尝试：

• 减小 position_dodge 的值（如0.7），让分组内条形贴合更紧密
• 增大 geom_bar 的 width（最大不超过1，避免条形重叠）
• 调整 plot.margin 参数控制图表外边框的空白大小

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