clickAction = NULLを使用してネットワークD3のノードをリンクする

Question

パッケージのforceNetwork()機能を使用して外部のWebサイトへのリンクとしてノードを使用する方法は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) 

望ましい結果：ユーザーがノードをクリックすると、新しいタブがノードに関連付けられたURLを指す（例えばwindow.open）をオープンします - どのように私はポイントに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