r - Plotly 和 stat_summary 在工具提示中生成“NA”

Question

我想用来stat_summary在 ggplot2 图表上显示我的数据的平均值，并使用 plotly 在工具提示中显示数据和平均值。我正在使用ggplot2（ggplot2_2.2.1.9000）的开发版本，我刚刚重新安装plotly（plotly_4.7.1）。

stat_smooth工作 - 你可以看到我悬停在平滑线上，我在工具提示中得到值。

library(plotly)
library(ggplot2)
p <- iris %>% 
  ggplot(aes(Sepal.Length, Sepal.Width, color = Species)) +
  geom_point()
ggplotly(p + stat_smooth(se = FALSE))

但是，stat_summary 不是-这就是我的“现实世界”问题所需要的:)。请注意如何Sepal.Width。我本可以发誓去年这对我有用。NA

ggplotly(p + stat_summary(fun.y = "mean", geom="line", size = 1))