如何使用ggplotly-R使平铺打开超链接

Question

我希望从geom_tile()生成的瓦片使用ggplotly和htmlwidgets打开超链接。散点图上的点已经有了答案。

这就是我目前所拥有的：

mtcars$url <- paste0("http://google.com/search?q=", gsub(" ", "+", rownames(mtcars)))
p <- ggplot(data = mtcars, aes(x = wt, y = mpg, fill = as.character(carb), customdata = url)) + 
geom_tile(width = .2, height = 1)
pp <- ggplotly(p)
ppp <- htmlwidgets::onRender(pp, "
function(el, x) {
el.on('plotly_click', function(d) {
var url = d.points[0].customdata;
//url
window.open(url);
});
}
")

一个新的web浏览器选项卡确实打开了，但它是空白的。

Answer 1

结构似乎发生了一些变化。

请检查以下内容：

library(plotly)
mtcars$url <- paste0("https://google.com/search?q=", gsub(" ", "+", rownames(mtcars)))
p <- ggplot(data = mtcars, aes(x = wt, y = mpg, fill = as.character(carb), customdata = url)) + 
geom_tile(width = .2, height = 1)
pp <- ggplotly(p)
plotly_json(pp)
ppp <- htmlwidgets::onRender(pp, "
function(el, x) {
el.on('plotly_click', function(d) {
// console.log(d);
var url = d.points[0].data.customdata[0];
window.open(url);
});
}
")
ppp