如何调整Bar plot的柱子宽度使其更小？

• 你使用的ggpubr绘图包的绘图函数（包括你当前用的ggboxplot、以及常用的ggbarplot）都支持直接通过width参数控制柱子/箱体的宽度，参数取值范围为0_{1，数值越小宽度越窄，默认值为0.75，你可以根据显示需求调整为0.3}0.6之间的数值。
• 如果调整宽度后显著性标注的位置出现错位，可以同步修改add_xy_position()中的dodge参数，取值和你设置的width参数一致即可实现标注对齐。

修改后的可运行代码 #

library(ggpubr)
library(rstatix)

df <- ToothGrowth
df$dose <- as.factor(df$dose)
head(df, 6)

# 统计检验
stat.test <- df %>%
  t_test(len ~ supp) %>%
  add_significance()
stat.test

# 绘制箱线图，添加width参数调整箱体宽度，这里设置为0.4可根据需求修改
bxp <- ggboxplot(df, x = "supp", y = "len", fill = "supp", 
                 palette = c("#00AFBB", "#E7B800"),
                 width = 0.4)


stat.test <- stat.test %>% add_xy_position(x = "supp", dodge = 0.4)
# 基础带p值版本
bxp + 
  stat_pvalue_manual(stat.test, label = "p") +
  scale_y_continuous(expand = expansion(mult = c(0.05, 0.1)))

# 自定义p值标签版本
bxp + stat_pvalue_manual(
  stat.test, label = "T-test, p = {p}",
  vjust = -1, bracket.nudge.y = 1
) +
  scale_y_continuous(expand = expansion(mult = c(0.05, 0.15)))

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