Question

我用几何方法制作了一个带有以下代码的方框图

bp.vals <- function(x, probs=c(0.05, 0.25, 0.75, .95)) {
    r <- quantile(x, probs=probs, na.rm=TRUE)
    r = c(r[1:2], exp(mean(log(x))), r[3:4])
    names(r) <- c("ymin", "lower", "middle", "upper", "ymax")
    r
}
ggplot(data_7m, aes(x=factor(BCG), y= IPVtype1_7m, fill=Group, width=0.4)) + 
     scale_fill_manual(values = c("dark grey", "light grey")) +
     stat_summary(fun.data=bp.vals, geom="boxplot", show.legend=F) + 
     labs(x="", y="GMC(IU/mL)")

我想将盒子靠得更近，但无法让它工作。我尝试过space，position和par（）函数。

有人知道怎么做吗？
Box plot geometric mean

Answer 1

代替可复制的示例，增加width参数。宽度参数通常与geom_bar（例如geom_bar(stat="identity", width=0.9)和geom_boxplot（geom_boxplot(width=0.9)）一起使用。

ggplot(data_7m, aes(x=factor(BCG), y=IPVtype1_7m, fill=Group) + 
     geom_bar(stat="identity", width=0.9) +
     scale_fill_manual(values = c("dark grey", "light grey")) +
     labs(x="", y="GMC(IU/mL)"

箱形图，移动箱子靠得更近

1 个答案: