R 图中的 Ggplotly 可点击 link

Question

我想在 R plotly 中单击 link - 这意味着当您单击绘图中的某个点时，您将被重定向到网页。是否有可能在 R 中使用 ggplotly 或者是否有任何类似的解决方案？您可以使用以下代码重现我的情节：


# Data frame
data <- data.frame(check.names = FALSE,
  `price` = c(6790000, 6950000, 5990000, 5990000, 4150000, 8654100),
  `rooms` = c("4+1", "3+1", "2+kk", "2+1", "1+kk", "4+1"),
  `m2` = c(78, 78, 58, 52, 30, 100),
  `location` = c("Bohunice", "Bystrc", "Plotni", "Lesna", "Styrice", "Zabrdovice"),
  `link` = c("https://www.sreality.cz/detail/prodej/byt/4+1/brno-bohunice-moldavska/2155567196", 
             "https://www.sreality.cz/detail/prodej/byt/3+1/brno-bystrc-cerneho/2881087836", 
             "https://www.sreality.cz/detail/prodej/byt/2+kk/brno--plotni/2840209756", 
             "https://www.sreality.cz/detail/prodej/byt/2+1/brno-lesna-triskalova/2905770332", 
             "https://www.sreality.cz/detail/prodej/byt/1+kk/brno-styrice-videnska/3682412892", 
             "https://www.sreality.cz/detail/prodej/byt/4+1/brno-zabrdovice-kornerova/2548312156"
  )
)

# CLEAN DATA
library(ggplot2)
library(plotly)
g <- ggplot(data, aes(x=m2, y=price, 
                    text = paste0("Type: ", rooms, "\n",
                                  "Price: ", price, "\n",
                                  "M2: ", m2, "\n",
                                  "Location: ", location, "\n", 
                                  "Link: ", link))) +
  geom_point(aes(fill=rooms), color='black', size=3, alpha=0.9) +
  theme_minimal() +
  scale_x_continuous(breaks = seq(min(0), max(350), by=50)) +
  scale_y_continuous(breaks = seq(min(0), max(40000000), by=2000000)) +
  theme(
    legend.title = element_blank())

ggplotly(g, tooltip = c("text"))

Answer 1

按照 R plotly book 的第 21 章，您可以通过 customdata 属性传递 link 并通过 ´htmlwidgets::onRender` 添加自定义事件处理程序来实现您想要的结果.对于自定义事件处理程序，您可以简单地使用引用的 link.

中的 JS 代码

# Data frame
data <- data.frame(
  check.names = FALSE,
  `price` = c(6790000, 6950000, 5990000, 5990000, 4150000, 8654100),
  `rooms` = c("4+1", "3+1", "2+kk", "2+1", "1+kk", "4+1"),
  `m2` = c(78, 78, 58, 52, 30, 100),
  `location` = c("Bohunice", "Bystrc", "Plotni", "Lesna", "Styrice", "Zabrdovice"),
  `link` = c(
    "https://www.sreality.cz/detail/prodej/byt/4+1/brno-bohunice-moldavska/2155567196",
    "https://www.sreality.cz/detail/prodej/byt/3+1/brno-bystrc-cerneho/2881087836",
    "https://www.sreality.cz/detail/prodej/byt/2+kk/brno--plotni/2840209756",
    "https://www.sreality.cz/detail/prodej/byt/2+1/brno-lesna-triskalova/2905770332",
    "https://www.sreality.cz/detail/prodej/byt/1+kk/brno-styrice-videnska/3682412892",
    "https://www.sreality.cz/detail/prodej/byt/4+1/brno-zabrdovice-kornerova/2548312156"
  )
)

library(ggplot2)
library(plotly)
library(htmlwidgets)

g <- ggplot(data, aes(
  x = m2, y = price,
  text = paste0(
    "Type: ", rooms, "\n",
    "Price: ", price, "\n",
    "M2: ", m2, "\n",
    "Location: ", location
  ),
  customdata = link
)) +
  geom_point(aes(fill = rooms), color = "black", size = 3, alpha = 0.9) +
  theme_minimal() +
  scale_x_continuous(breaks = seq(min(0), max(350), by = 50)) +
  scale_y_continuous(breaks = seq(min(0), max(40000000), by = 2000000)) +
  theme(
    legend.title = element_blank()
  )

p <- ggplotly(g, tooltip = c("text"))

onRender(
  p, "
  function(el) {
    el.on('plotly_click', function(d) {
      var url = d.points[0].customdata;
      window.open(url);
    });
  }
"
)

R 图中的 Ggplotly 可点击 link

Ggplotly clickable link in R plot

r

r-plotly