ggiraph:带超链接的工具提示？

Question

我正在尝试用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)

​

​

Answer 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)