Collapsible network plot in R

Question

블로그 게시물 more network layouts을 기반으로 R에서 축소 가능한 네트워크를 구현하려고합니다. 그러나 나는 항상 Object not found의 오류를 얻고 있습니다.

devtools::install_github 
devtools::install_github("timelyportfolio/networkD3@feature/d3.chart.layout") 
library(htmltools) 
library(networkD3) 

hc = hclust(dist(mtcars)) 

treeNetwork( 
    as.treeNetwork(hc, "mtcars") 
) 

tagList(
    lapply(
    c("tree.cartesian" 
     ,"tree.radial" 
     ,"cluster.cartesian" 
     ,"cluster.radial" 
    ) 
    ,function(chartType){ 
     hierNetwork(as.treeNetwork(hc), type=chartType, zoomable=T, collapsible=T) 
    } 
) 
) 
tree.cartesian 

1

우리가 어떻게 네트워크를 구축 할 수있는 가장자리 파일이 그래프를 사용하여 편집? 예 :

From To 
A  B 
A  C 
A  D 
D  L 
L  J 
J  T 
B  O 

Answer 1

예 :

library(networkD3) 
to <- c("a","a","a","d","l","j","b") 
from <- c("b","c","d","l","j","t","o") 
df <-data.frame(to,from) 
simpleNetwork(df) 

당신은 공식 networkD3 패키지를 사용해야합니다

install.packages("networkD3") 

Answer 2

나는 tree.cartesian 객체가 코드에 있어야하는데 모르겠어요를, tree.cartesian 개체가 코드에서 생성되지 않으므로 "개체를 찾을 수 없습니다"라는 오류가 발생합니다.

lapply 명령을 tagList 함수에서 제거하면 코드가 작동합니다. 또는 더 간결하게 ...

devtools::install_github("timelyportfolio/networkD3@feature/d3.chart.layout") 
library(networkD3) 

hc = hclust(dist(mtcars)) 

hierNetwork(as.treeNetwork(hc), type = 'tree.cartesian', zoomable = T, collapsible = T) 
# or 
hierNetwork(as.treeNetwork(hc), type = 'tree.radial', zoomable = T, collapsible = T) 
# or 
hierNetwork(as.treeNetwork(hc), type = 'cluster.cartesian', zoomable = T, collapsible = T) 
# or 
hierNetwork(as.treeNetwork(hc), type = 'cluster.radial', zoomable = T, collapsible = T) 

그냥 당신은 (내가 아는 한) 더 이상 개발되고있다 networkD3의 분기를 사용하고, 명확합니다. 이 기능을 공식 네트워크 D3 분기에 추가하려는 현재 의도가 있지만 현재 (v0.3.1)이 기능 (접을 수있는 분기)은 현재 사용할 수 없습니다.

Answer 3

networkD3 (v0.4.9000 현재 2017.09.02)의 현재 공식 개발 버전에는 접을 수있는 나무를 사용할 수있는 새로운 기능 treeNetwork이 있습니다.

devtools::install_github("christophergandrud/networkD3") 
library(networkD3) 

hc <- hclust(dist(mtcars)) 
treeNetwork(hc) 

edges <- read.table(header = T, text = " 
From To 
NA  A 
A  B 
A  C 
A  D 
D  L 
L  J 
J  T 
B  O 
") 

edges <- as_treenetdf(edges, cols = c(nodeId = "To", parentId = "From")) 
treeNetwork(edges) 

은 아직 개발, 그래서 우리는 feedback 감사하겠습니다.