r - 如何在不事先计算的情况下将中值添加到 geom_boxplot_interactive 的工具提示中？

Question

我正在尝试将中值添加到 中的工具提示中geom_boxplot_interactive(tooltip = )，而不必为每个分组计算它并将其加入数据集。

我试图查看stat_summary()、 stat 或 middle 中的某些内容是否有效。但到目前为止还没有运气。

library(ggplot2) 
library(ggiraph) 
data("mpg") 
# View(mpg) 
p <- ggplot(mpg, aes(x = class, y = hwy, tooltip = class)) + 
  geom_boxplot_interactive() 

ggiraph(code = print(p))
# ggiraph(ggobj = p  + geom_boxplot_interactive(aes(tooltip = data$median)) 

p <- ggplot(mpg, aes(x = drv, y = hwy, tooltip = class, fill = class)) +
  geom_boxplot_interactive(outlier.colour = "red") + 
  guides(fill = "none") + theme_minimal()

girafe(ggobj = p)

如果我有数据集中每个组的中值，则此方法有效，但如果可能，我会尽量避免这种情况。