箱线图上的全文标签，添加了平均点

Question

我正在尝试获取类似于此 https://stats.stackexchange.com/questions/8206/labeling-boxplots-in-r 的文本标签，但我无法让它工作。 MWE 与我所拥有的类似：

data <- data.frame(replicate(5,sample(0:100,100,rep=TRUE)))

meanFunction <- function(x){
return(data.frame(y=round(mean(x),2),label=round(mean(x,na.rm=T),2)))}

ggplot(melt(data), aes(x=variable, y=value)) +
geom_boxplot(aes(fill=variable), width = 0.7) +
stat_summary(fun.y = mean, geom="point",colour="darkred", size=4) +
stat_summary(fun.data = meanFunction, geom="text", size = 4, vjust=1.3)

这会在附加图像中产生类似 "A" 的内容，我正在尝试为每个框获取类似 "B" 的内容。谢谢。

Answer 1

这是我的尝试。首先，我重塑了你的数据。然后，我制作了你的箱线图。我改变了平均文本的大小和颜色。然后，我查看了 ggplot 使用的数据，您可以使用 ggplot_build(objectname)$data[[1]] 访问这些数据。你可以看到你需要的数字。我选择了必要的变量并重塑了数据，即 df。使用df，你可以注释你想要的数字。

library(dplyr)
library(tidyr)
library(ggplot2)

set.seed(123)
mydf <- data.frame(replicate(5,sample(0:100,100,rep=TRUE)))

mydf <- gather(mydf, variable, value)

meanFunction <- function(x){
return(data.frame(y=round(mean(x),2),label=round(mean(x,na.rm=T),2)))}

g <- ggplot(data = mydf, aes(x = variable, y = value, fill = variable)) +
     geom_boxplot(width = 0.5) +
     stat_summary(fun.y = mean, geom = "point",colour = "darkred", size=4) +
     stat_summary(fun.data = meanFunction, geom ="text", color = "white", size = 3, vjust = 1.3)

df <- ggplot_build(g)$data[[1]] %>%
       select(ymin:ymax, x) %>%
       gather(type, value, - x) %>%
       arrange(x)

g + annotate("text", x = df$x + 0.4, y = df$value, label = df$value, size = 3)

Answer 2

首先，我会获取您的数据，然后自己计算所有箱线图特征。这是一种方法

dd <- data.frame(replicate(5,sample(0:100,100,rep=TRUE)))

tt <- data.frame(t(sapply(dd, function(x) c(boxplot.stats(x)$stats, mean(x)))))
names(tt) <- c("ymin","lower","middle","upper","ymax", "mean")
tt$var <- factor(rownames(tt))

我确信 dplyr 有更漂亮的方法可以做到这一点，但关键是您需要自己计算这些值，以便知道在何处绘制标签。那么你可以做

ggplot(tt) + 
   geom_boxplot(aes(x=var, ymin=ymin, lower=lower, middle=middle, upper=upper, ymax=ymax), stat="identity", width=.5) + 
   geom_text(aes(x=as.numeric(var)+.3, y=middle, label=formatC(middle,1, format="f")), hjust=0) +
   geom_text(aes(x=as.numeric(var)+.3, y= lower, label=formatC(lower,1, format="f")), hjust=0) +
   geom_text(aes(x=as.numeric(var)+.3, y= upper, label=formatC(upper,1, format="f")), hjust=0) + 
   geom_text(aes(x=as.numeric(var)+.3, y= ymax, label=formatC(ymax,1, format="f")), hjust=0) + 
   geom_text(aes(x=as.numeric(var)+.3, y= ymin, label=formatC(ymin,1, format="f")), hjust=0) + 
   geom_point(aes(x=var, y=mean)) + 
   geom_text(aes(x=as.numeric(var), y= mean, label=formatC(mean,1, format="f")), hjust=.5, vjust=1.5)

绘制每个标签

箱线图上的全文标签，添加了平均点

full text label on Boxplot, with added mean point

r

ggplot2

boxplot