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

debugcn 发表于 Dev

动物园漫步

我正在尝试创建一个交互式散点图，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)

tro

您可以通过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)

本文收集自互联网，转载请注明来源。

如有侵权，请联系[email protected] 删除。