ggiraph：带有超链接的工具提示？

【问题标题】：ggiraph: tooltip with hyperlink?ggiraph：带有超链接的工具提示？
【发布时间】：2023-04-01 14:56:02
【问题描述】：

我正在尝试使用ggiraph 创建一个交互式散点图，其中工具提示允许我导航到一个网址（与特定的选定点有关）。知道这是否真的可行以及如何去做吗？非常感谢您的任何建议！

library(tidyverse)
library(ggiraph)

my_df <- data.frame(stringsAsFactors=FALSE,
            x = c(0.5, 0.1),
            y = c(0.2, 0.9),
         link = c("bbcnews.com", "nyt.com"),
   link_name = c("bbc news", "nytimes")
)


my_plot <- my_df %>% 
  ggplot()+
  geom_point_interactive(aes(x=x,
                             y=y,
                             tooltip=paste0(link_name, 
                                            "\n",
                                            link)))
my_plot
girafe(ggobj=my_plot,
       height_svg = 5,
       width_svg = 5)

【问题讨论】：

标签： r ggiraph

【解决方案1】：

您可以通过tooltip（编写为html）或onclick 美学提供链接。就个人而言，我更喜欢使用onclick，因为当您移动鼠标光标单击链接时，工具提示几乎总是消失。

在下面的代码中，我尝试将两者都添加，因此您可以尝试单击该点本身，或者查看您是否足够快以单击工具提示中的链接。

library(tidyverse)
library(ggiraph)

my_df <- data.frame(stringsAsFactors=FALSE,
            x = c(0.5, 0.1),
            y = c(0.2, 0.9),
         link = c("http://bbcnews.com", "http://nyt.com"),
   link_name = c("bbc news", "nytimes")
)

my_plot <- my_df %>% 
  ggplot()+
  geom_point_interactive(aes(x=x,
                             y=y,
                             tooltip=paste0("<a href='", link, "'>",link_name, 
                                            "</a>\n",
                                            link), 
onclick=paste0('window.open("', link , '")')))

girafe(ggobj=my_plot,
       height_svg = 5,
       width_svg = 5)

【讨论】：