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

Question

我试图将中间值添加到geom_boxplot_interactive(tooltip = )的工具提示中，而不必为每个分组计算中间值并将其连接到数据集。

我尝试查看stat_summary()，统计信息或中间值中的某项是否有效。但是到目前为止还没有运气。

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)

如果我具有数据集中每个组的中值，则可以使用此方法，但是如果可能的话，我会尽量避免这样做。