ggplot：當使用stat_summary時，如何更改boxplot設置

Question

我想分組的boxplots是由stat_summary定義的。隨着changing-whisker-definition幫助下，我寫了下面的代碼：

# Data 
xdf2 <- data.frame(month = rep(1:6,each=100) 
        , grp = rep(c('A','B'), 50*6) 
       ) 
xdf2$m <- rpois(n=nrow(xdf2),10) 
# Definition of whiskers 
f <- function(x) { 
    r <- quantile(x, probs = c(0.10, 0.25, 0.5, 0.75, 0.90)) 
    names(r) <- c("ymin", "lower", "middle", "upper", "ymax") 
    r 
} 

# Add points outside of whiskers 
o <- function(x) { 
    subset(x, x < quantile(x,probs=0.1) | quantile(x,probs=0.9) < x) 
} 


# Plot 
ggplot(data = xdf2 
     , aes(factor(month),m, color=grp) 
     ) + 
     stat_summary(fun.data = f 
        , geom="boxplot" 
        , position=position_dodge(width=1) 
        , size=1 
        ) + 
     stat_summary(fun.y = o, geom="point", position=position_dodge(width=1)) + 
     scale_color_manual(values = c("gray30","darkgrey"),labels = c("AAA","BBB")) + 
     theme_bw() 

其給出以下圖表：

有一些變化，我想執行：

• 我怎樣才能改變盒子的寬度？
• 如何填充邊框顏色相同的框？

我很樂意提供任何幫助。非常感謝。

Answer 1

地圖fill審美grp併爲其添加一個類似的比例。我使用稍微不同的顏色使平均值可見。

要更改箱線寬度，請使用ggsave和各種width參數，箱線圖將自動調整。如果你想在兩者之間增加一些空間，你將不得不作弊，見下文。

這是不容易改變的寬度結合stat_summary：雖然有一個width參數geom_bar和geom_boxplot，我不能使它與stat_summary正常工作。相反，我使用scale_x一些骯髒的技巧。

K <- length(unique(xdf2$month)) 
lev <- seq_len(1 + 2 * K) 

xdf2$month2 <- factor(2 * xdf2$month, 
         levels = lev) 

ggplot(data = xdf2, aes(month2, m, color = grp, fill = grp)) + 
    stat_summary(fun.data = f, geom="boxplot", 
       position=position_dodge(width=1.5), size=1) + 
    stat_summary(fun.y = o, geom="point", position=position_dodge(width=1.5)) + 
    scale_color_manual(values = c("gray30","darkgrey"),labels = c("AAA","BBB")) + 
    scale_fill_manual(values = c("gray20","grey75"),labels = c("AAA","BBB")) + 
    theme_bw() + 
    scale_x_discrete(limits = lev, breaks = 1:K*2, labels = 1:K) 

玩width在position_dodge額外的調整。