如何进行两级箱图,在R中重新定义胡须?

时间:2013-08-19 21:20:48

标签: r ggplot2 boxplot

我想制作一个有两个不同因素的箱线图:

df <- data.frame(f1=factor(rbinom(100, 1, 0.45), label=c("m","w")), 
                  f2=factor(rbinom(100, 1, 0.45), label=c("young","old")),
                  boxthis=rnorm(100))

ggplot(aes(y = boxthis, x = f2, fill = f1), data = df) + geom_boxplot()

我还想根据分位数来重新定义胡须:

f <- function(x) {
  r <- quantile(x, probs = c(0.025, 0.25, 0.5, 0.75, 0.975))
  names(r) <- c("ymin", "lower", "middle", "upper", "ymax")
  r
}

ggplot(aes(y = boxthis, x = f2, fill = f1), data = df) + stat_summary(fun.data = f, geom="boxplot")

然而,当使用stat_summary()时,x轴上相同位置的两个不同的boxplot被绘制在彼此之上,而不是像调用geom_boxplot()时那样彼此相邻。有更好的方法吗?

1 个答案:

答案 0 :(得分:2)

只需将position="dodge"添加到stat_summary()即可。对于geom_boxplot() position="dodge"已经是默认值,因此您不必编写它,但对于stat_summary(),您必须自己定义。

ggplot(aes(y = boxthis, x = f2, fill = f1), data = df) + 
  stat_summary(fun.data = f, geom="boxplot",position="dodge")