将 plotly 工具提示信息存储在 ggplot object 之外

Question

是否可以在 ggplot object 之外存储 plotly 工具提示信息？ 例如，我想从这个 go ：

library(tidyverse)
library(plotly)

p1 <- mtcars %>% 
  ggplot(aes(x = mpg, y = hp, text = paste0("<b>MPG: </b>", mpg, "<br>",
                                            "<b>HP: </b>", hp))) +
  geom_point()

ggplotly(p1, tooltip = "text")

对此：

tooltip_text <- paste0("<b>MPG: </b>", mpg, "<br>",
                       "<b>HP: </b>", hp)

p1 <- mtcars %>% 
  ggplot(aes(x = mpg, y = hp, text = tooltip_text)) +
  geom_point()

ggplotly(p1, tooltip = "text")

Answer 1

使用quote和bang-bang 运算符!! 取消报价：

tooltip_text <- quote(paste0("<b>MPG: </b>", mpg, "<br>",
                         "<b>HP: </b>", hp))

p1 <- mtcars %>% 
  ggplot(aes(x = mpg, y = hp, text = !! tooltip_text)) +
  geom_point()

ggplotly(p1, tooltip = "text")