R 将观察数添加到多个ggplot2箱线图中

我试图用描述性信息（均值、计数等）创建箱线图。 我找到了很多关于如何为不同组的一个箱线图添加数字的示例，但我没有找到为多个箱线图网格（facet_wrap）添加这些数字的方法

例如，描述了如何为一个箱线图添加数字-我正在尝试为一个箱线图添加数字

library（重塑2）
图书馆（GG2）
df.m创建计算和平均值的函数

stat_box_data <- function(y) {
  return( 
    data.frame(
      y = 0.5+1.1*max(y),  #may need to modify this depending on your data
      label = paste('count =', length(y), '\n',
                    'mean =', round(mean(y), 1), '\n')
    )
  )
}

  )
}
df.m <- melt(iris, id.var = "Species")

能否添加一个可复制的示例？我可能知道发生了什么这包括您尝试的示例代码（包括列出非base R包，以及收到的任何错误/警告）、示例明确的数据（例如，
dput（head（x））
或
data.frame（x=…，y=…）
），以及预期的输出。参考：和。
上限=最大值（虹膜$Sepal.Length）
是常量变量。有没有办法为每个层定义一个动态位置？在Iris数据集中，它看起来不错，但在更复杂的表中，这可能是一个问题。编辑y变量的更大可变性，如果解决了问题，请接受答案谢谢！太完美了。
stat_box_data <- function(y) {
  return( 
    data.frame(
      y = 0.5+1.1*max(y),  #may need to modify this depending on your data
      label = paste('count =', length(y), '\n',
                    'mean =', round(mean(y), 1), '\n')
    )
  )
}

  )
}
df.m <- melt(iris, id.var = "Species")

ggplot(data = df.m, aes(x=Species, y=value)) + 
  geom_boxplot(aes(fill=Species))+
  stat_summary(
    fun.data = stat_box_data, 
    geom = "text", 
    hjust = 0.5,
    vjust = 0.9
  ) + 
facet_wrap( ~ variable, scales="free")