R ggplotly转ggplot2图时如何手动设置plotly数据点标签

问题复现 #

使用ggplot2绘图后调用ggplotly()转成交互图时，labs()中设置的坐标轴、图例标题可以正常显示，但鼠标悬停在数据点上弹出的提示标签仍展示原始数据的列名，没有同步自定义的标签文本。
复现代码：

library(ggplot2)
library(plotly)
p <- iris %>% 
 ggplot(aes(Sepal.Length, Sepal.Width, color = Species)) +
 geom_point() +
 labs(
  title = "A graph",
  x = "Sepal Length (cm)",
  y = "Sepal Width (cm)",
  color = "Species of Iris"
) 

ggplotly(p)

复现效果：

解决方案 #

ggplotly()默认不会自动把labs()里定义的标签映射到悬停提示，有两种常用实现方式：

• 方式1：保留ggplot2绘图逻辑，在美学映射中自定义text属性，再指定ggplotly()的悬停内容只读取自定义文本

library(ggplot2)
library(plotly)
p <- iris %>% 
 ggplot(aes(Sepal.Length, Sepal.Width, color = Species,
            text = paste0("Sepal Length (cm): ", Sepal.Length,
                          "<br>Sepal Width (cm): ", Sepal.Width,
                          "<br>Species of Iris: ", Species))) +
 geom_point() +
 labs(
  title = "A graph",
  x = "Sepal Length (cm)",
  y = "Sepal Width (cm)",
  color = "Species of Iris"
) 

ggplotly(p, tooltip = "text")

注意：如果不指定tooltip = "text"参数，悬停弹窗会同时展示原始数据列名和自定义的text内容。

• 方式2：直接使用plotly原生函数绘图，逻辑和Python版本一致，通过labels参数批量映射列名对应的显示文本，不需要单独拼接悬停内容
  Python端对应实现参考：

import plotly.express as px

df = px.data.iris()
fig = px.scatter(df, x="sepal_length", y="sepal_width", color="species",
                 labels={
                     "sepal_length": "Sepal Length (cm)",
                     "sepal_width": "Sepal Width (cm)",
                     "species": "Species of Iris"
                 },
                title="Manually Specified Labels")
fig.show()

配置完成后的悬停效果：

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