小编Mar*_*rgo的帖子

我想让我的散点图点可点击，并在点击时打开每个点各自的超链接。我正在尝试使用 ggplotly 来做到这一点。使用 plotly() 构建绘图时，有一种简单的方法可以做到这一点（参见下面的第一个示例）。但是，在 ggplotly 上运行它时，单击时会打开一个空网页。

任何人都知道我如何使用下面的代码进行这项工作？代码的 OnRender 部分是否有解决方案（不熟悉 javascript）？使用 plotly 的第一个代码块有效。第二个代码块是我使用 ggplotly 的基本尝试，但它不起作用。

任何关于这方面的指导都会很棒！提前致谢

library(plotly)
library(htmlwidgets)
library(dplyr)

#1. Using plotly
mtcars$url <- paste0(
  "http://google.com/#q=", 
  rownames(mtcars))
p <- plot_ly(mtcars, x = ~wt, y = ~mpg) %>%
  add_markers(customdata = ~url)
onRender(p, "
         function(el, x) {
         el.on('plotly_click', function(d) {
         var url = d.points[0].customdata;
         window.open(url);
         });
         }
         ")

#2. Using ggplotly`
p <- ggplot(data = mtcars, aes(x = wt, y = mpg))+
  geom_point()
pp <- ggplotly(p)
pp  <- add_markers(pp, customdata = ~url) …