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))