связывание узла в сетиD3 с веб-сайтом с помощью clickAction = NULL

Question

Есть ли способ использовать узел в качестве ссылки на внешний веб-сайт, используя функцию forceNetwork() в пакете networkD3 в r? Я думал, может быть, изменил clickAction?

Пример данных:

library(networkD3) 
data(MisLinks) 
data(MisNodes) 

# Create a random URL in the nodes dataset 
MisNodes$URL <- paste0("http://www.RANDOMLINK_", sample(1:100, NROW(MisNodes)), ".com") 
head(MisNodes) 

MyClickScript <- 'alert(d.index)' 

forceNetwork(Links = MisLinks, Nodes = MisNodes, 
      Source = "source", Target = "target", 
      Value = "value", NodeID = "name", 
      Group = "group", opacity = 0.8, 
      clickAction = MyClickScript) 

Желаемый результат: Когда пользователь нажимает на узле, новая вкладка откроется (например, window.open), что указывает на соответствующий URL-адрес для узла - Как я могу получить clickAction указать до MisNodes$URL[d.index]?

Answer 1

networkD3 дизайн не делает это легким. Вот один из способов ответа. Я попытаюсь прокомментировать, чтобы объяснить, что мы делаем на каждом шаге.

library(networkD3) 

# example from ?forceNetwork 
data(MisLinks) 
data(MisNodes) 
# Create graph 
fn <- forceNetwork(
    Links = MisLinks, Nodes = MisNodes, Source = "source", 
    Target = "target", Value = "value", NodeID = "name", 
    Group = "group", opacity = 0.4, zoom = TRUE 
) 

# let's look at our forceNetwork 
# nodes are provided to JavaScript 
# in a nodes data.frame 
str(fn$x$nodes) 

# make up some links to demonstrate 
# how we can add them to our nodes df 
fn$x$nodes$hyperlink <- paste0(
    'http://en.wikipedia.org/wiki/Special:Search?search=', 
    MisNodes$name 
) 

# then with our hyperlinks in our data 
# we can define a click action to open 
# the hyperlink for each node in a new window 
fn$x$options$clickAction = 'window.open(d.hyperlink)' 

fn