# convert Titanic to a nested d3 hierarchy
# devtools::install_github("timelyportfolio/d3r")
library(d3r)
library(dplyr)
titanic_df <- data.frame(Titanic)
tit_tb <- titanic_df %>%
select(Class,Age,Survived,Sex,Freq) %>%
d3_nest(value_cols="Freq", root="titanic")
tit_tb
# see as tibble
titanic_df %>%
select(Class,Age,Survived,Sex,Freq) %>%
d3_nest(value_cols="Freq", root="titanic", json=FALSE)
# see the structure with listviewer
tit_tb %>%
listviewer::jsonedit()
if (FALSE) {
library(treemap)
library(d3r)
library(dplyr)
library(tidyr)
treemap::random.hierarchical.data() %>%
d3_nest(value_cols = "x")
# use example from ?treemap
data(GNI2014)
treemap(
GNI2014,
index=c("continent", "iso3"),
vSize="population",
vColor="GNI",
type="value",
draw=FALSE
) %>%
{.$tm} %>%
select(continent,iso3,color,vSize) %>%
d3_nest(value_cols = c("color", "vSize"))
}
Run the code above in your browser using DataLab