打开数据点上的链接，单击R中的Plotly

我正在与Plotly合作开发一个闪亮的web应用程序。我已经制作了一个交互式散点图，并用我想要的信息配置了悬停文本

我的执行情况如下：

plot_ly(data=partition, 
          x=~get(x), 
          y=~get(y), 
          color=~SenderS,
          colors="Set1",
          text=~paste("Link(s): <a href='", partition$Link,"'>", partition$Link, "</a>",
                      "<br>Date: ", partition$Date,
                      "<br>Parties: ", partition$SenderS, " to ", partition$Target,
                      "<br>", x_og, ": ", partition[,x],
                      "<br>", y_og, ": ", partition[,y])
          )%>%
    layout(title=~paste(x_og, " vs. ", y_og, 
                        "<br>R=", cor(partition[,x], partition[,y])),
           xaxis=list(
             title=x_og
           ),
           yaxis=list(
             title=y_og
           ))

绘图（数据=分区，
x=~get（x），
y=~get（y），
颜色=~发件人，
colors=“Set1”，
text=~粘贴（“链接）：”，
“
日期：”，分区$Date，
“
参与方：”，分区$sender，“to”，分区$Target，
“
”，x_og，”：“，分区[，x]，
“
”，y_og，“：”，分区[，y]）
)%>%
布局（标题=~粘贴（x_og，“vs.”，y_og，
“
R=，cor（分区[，x]，分区[，y]），
xaxis=列表(
title=x_og
),
yaxis=列表(
title=y_og
))

在弹出窗口中，我有一个链接，我希望用户能够导航到该链接。不幸的是，一旦用户将鼠标悬停在当前弹出窗口上，它就会消失，因为用户不再将鼠标悬停在该点上

---

有没有办法配置Plotly hovertext，以便我的用户能够单击链接？或者，我可以让单击散点图中的点打开链接吗？

这里是一个散点图，其中的点在单击时打开链接：

library(plotly)
library(htmlwidgets) # to use the 'onRender' function

dat <- iris[1:2,]
urls <- c("http://google.com", "https://stackoverflow.com")

p <- plot_ly(dat, type = "scatter", mode = "markers",
             x = ~Sepal.Width, y = ~Sepal.Length, 
             customdata = urls)

js <- "
function(el, x) {
  el.on('plotly_click', function(d) {
    var point = d.points[0];
    var url = point.data.customdata[point.pointIndex];
    window.open(url);
  });
}"

p %>% onRender(js)

library（plotly）
库（htmlwidgets）#使用“onRender”函数
dat真棒的解决方案！谢谢