r - 更改多面 geom_boxplot 中的 mustache 定义

Question

我创建了一个包含多个变量的箱线图的facet_grid。举个例子，可以通过以下虚拟数据来重现该图

require(ggplot2)
require(plyr)
library(reshape2)

set.seed(1234)
x<- rnorm(100)
y.1<-rnorm(100)
y.2<-rnorm(100)
y.3<-rnorm(100)
y.4<-rnorm(100)

df<- (as.data.frame(cbind(x,y.1,y.2,y.3,y.4)))
dfmelt<-melt(df, measure.vars = 2:5)

并将结果图创建为

dfmelt$bin <- factor(round_any(dfmelt$x,0.5))
ggplot(dfmelt, aes(x=bin, y=value, fill=variable))+
  geom_boxplot()+
  facet_grid(.~bin, scales="free")+
  labs(x="X (binned)")+
  theme(axis.text.x=element_blank())

给出以下结果:

但是，我想重新定义箱线图晶须，使它们不代表 0.25 - 1.5 IQR/0.75 + IQR 和异常值，而是 (i) 完整的第 5 个和第 95 个百分位数或 (ii) 的无穷大和上界数据。

Answer 1

您可以使用stat_summary来自定义外观，例如

ggplot(dfmelt, aes(x=bin, y=value, fill=variable)) + 
stat_summary(geom = "boxplot", 
             fun.data = function(x) setNames(quantile(x, c(0.05, 0.25, 0.5, 0.75, 0.95)), c("ymin", "lower", "middle", "upper", "ymax")), 
             position = "dodge")