New

library(data.tree)
library(treemap)
head(attr)
library(dplyr)
attr[c("pathString")] <- list(NULL)
attr <- setNames(attr, c("x","y","z"))

attr$pathString <- paste("total", 
                            attr$x, 
                            attr$y,
                            #attr$z,
                            sep = "/")



attr <- attr [!duplicated(attr[c("x","y")]),]

gx <- attr %>% slice(1:1000)


head(gx)
tree <- as.Node(attr)
plot(tree)

library(igraph)
plot(as.igraph(tree, directed = TRUE, direction = "climb"))
as.igraph(tree)

library(networkD3)
acmeNetwork <- ToDataFrameNetwork(tree, "name")
simpleNetwork(acmeNetwork[-3], fontSize = 12)


useRtree <- as.Node(useRdf, pathDelimiter = "|")
head(attr)
#plot with networkD3
useRtreeList <- ToListExplicit(tree, unname = TRUE)
radialNetwork( useRtreeList)