我想让我的散点图点可单击，并在单击时打开每个点各自的超链接。我正在尝试使用 ggplotly 来做到这一点。
使用plotly()构建绘图时有一个简单的方法可以做到这一点（请参见下面的第一个示例）。但是，当我在 ggplotly 上运行它时，单击时会打开一个空网页。
有人知道我如何使用下面的代码使其工作吗？代码的OnRender部分是否有解决方案（不熟悉javascript）？
使用plotly 的第一个代码块可以工作。第二个代码块是我使用 ggplotly 进行的基本尝试，但它不起作用。
任何关于这方面的指导都会很棒！提前致谢
library(plotly)
library(htmlwidgets)
library(dplyr)
mtcars$url <- paste0("http://google.com/search?q=", gsub(" ", "+", rownames(mtcars)))
#1. Using plotly
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)
onRender(pp, "
function(el, x) {
el.on('plotly_click', function(d) {
var url = d.points[0].customdata;
url
window.open(url);
});
}
")
好像add_markers(pp, customdata = ~url)没有影响。这是通过执行以下操作来实现的：
p <- ggplot(data = mtcars, aes(x = wt, y = mpg)) + geom_point()
pp <- ggplotly(p)
pp$x$data[[1]]$customdata <- mtcars$url
#pp <- add_markers(pp, customdata = ~url)
ppp <- onRender(pp, "
function(el, x) {
el.on('plotly_click', function(d) {
var url = d.points[0].customdata;
//url
window.open(url);
});
}
")
本文内容由网友自发贡献，版权归原作者所有，本站不承担相应法律责任。如您发现有涉嫌抄袭侵权的内容，请联系:hwhale#tublm.com(使用前将#替换为@)
