使用stat_summary与Plotly时Tooltip出现NA值的技术问题

我之前也碰到过一模一样的情况，核心原因是stat_summary生成的统计结果没有被Plotly自动识别为可展示的变量，而stat_smooth因为内部有明确的拟合值映射逻辑，所以tooltip能正常抓取数值。下面给你几个实用的解决办法：

方法一：在stat_summary中手动绑定均值到Tooltip文本 #

你可以在stat_summary的aes里，用..y..引用计算出的均值，通过text参数把它格式化后传递给tooltip，再在ggplotly里指定要显示的内容：

library(plotly)
library(ggplot2)
library(dplyr)

p <- iris %>% 
  ggplot(aes(Sepal.Length, Sepal.Width, color = Species)) +
  geom_point() +
  stat_summary(aes(y = Sepal.Width, text = paste("均值:", round(..y.., 2))), 
               fun.y = mean, geom = "point", size = 5)

ggplotly(p, tooltip = c("text", "Sepal.Length", "Sepal.Width", "Species"))

方法二：自定义统计函数返回多维度信息 #

如果需要展示更多统计量（比如标准差），可以用fun.data写一个返回数据框的函数，把多个指标打包到tooltip里：

# 自定义返回均值+标准差的函数
mean_sd_stats <- function(x) {
  data.frame(
    y = mean(x), 
    tooltip_text = paste("均值:", round(mean(x),2), "\n标准差:", round(sd(x),2))
  )
}

p <- iris %>% 
  ggplot(aes(Sepal.Length, Sepal.Width, color = Species)) +
  geom_point() +
  stat_summary(aes(text = ..tooltip_text..), 
               fun.data = mean_sd_stats, geom = "point", size = 5)

ggplotly(p, tooltip = c("text", "Sepal.Length", "Sepal.Width", "Species"))

方法三：提前计算均值再用geom_point绘制 #

这种方式更直观，先在数据层面算出分组均值，再用普通的geom_point添加到图中，Plotly能完美识别这些显性变量：

# 提前计算每个分组的均值
iris_mean_data <- iris %>% 
  group_by(Species, Sepal.Length) %>% 
  summarise(mean_sepal_width = mean(Sepal.Width))

p <- iris %>% 
  ggplot(aes(Sepal.Length, Sepal.Width, color = Species)) +
  geom_point() +
  geom_point(data = iris_mean_data, 
             aes(y = mean_sepal_width, 
                 text = paste("均值:", round(mean_sepal_width, 2))),
             size = 5, shape = 18)

ggplotly(p, tooltip = c("text", "Sepal.Length", "Sepal.Width", "Species"))

补充：为什么stat_smooth正常？ #

stat_smooth在生成拟合线时，会自动把拟合值（..y..）映射到图层的内置变量中，Plotly的ggplot转换器默认会识别这些变量；但stat_summary的统计结果默认没有被加入到tooltip的展示列表，所以需要我们手动指定映射关系。

内容的提问来源于stack exchange，提问作者Nova