如何在ggplot中通过变量动态定义plotly交互式Tooltip？

解决方案代码 #

library(tidyverse)
library(plotly)

set.seed(123) # 固定随机种子，保证结果可复现
df <- data.frame(ID = paste0("ID_",LETTERS[1:20]),
                 A = rnorm(20),
                 B = rnorm(20),
                 C = rnorm(20),
                 D = rnorm(20),
                 E = rnorm(20)
                 )

# 可在循环中动态修改的目标变量列表
variable_to_tooltip <- c("C", "D")

# 动态构建tooltip文本列
df <- df %>%
  mutate(
    text = pmap_chr(
      select(., ID, all_of(variable_to_tooltip)),
      ~ paste(names(c(...)), c(...), sep = ": ", collapse = "<br>")
    )
  )

# 绘制图形并转为plotly交互式版本
graph <- df %>% 
  ggplot(aes(x = A, y = B, text = text)) + 
  geom_point()

ggplotly(graph, tooltip = "text")

代码说明 #

• 动态文本生成：通过select(., ID, all_of(variable_to_tooltip))精准选中ID和需要展示的变量列，再用pmap_chr逐行遍历，自动将列名与对应值拼接成带<br>换行符的字符串，完美适配plotly的tooltip格式。
• 循环场景适配：只要修改variable_to_tooltip的取值，文本列会自动更新，无需手动修改ggplot的美学映射代码。

补充：直接在aes中动态拼接（tidyeval用法） #

如果不想提前处理数据，也可以用tidyeval语法在aes中直接实现动态拼接：

graph <- df %>% 
  ggplot(aes(x = A, y = B,
             text = paste(
               "ID: ", ID,
               !!!map(variable_to_tooltip, ~ paste0("<br>", .x, ": ", !!sym(.x)))
             ))) + 
  geom_point()

这里!!sym(.x)将字符串变量名转为ggplot可识别的变量对象，!!!把map生成的字符串列表拆分为paste的多个参数，实现动态拼接。不过这种写法可读性稍弱，循环场景更推荐第一种数据预处理方案。

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