library(dplyr)
df <- tibble(
name = "earth",
# 1st level
children = list(
tibble(
name = c("land", "ocean"),
# 2nd level
children = list(
tibble(name = c("forest", "river")),
# 3rd level
tibble(
name = c("fish", "kelp"),
children = list(
tibble(
name = c("shark", "tuna")
),
# 4th level
NULL # kelp
)
)
)
)
)
)
df |>
e_charts() |>
e_tree(initialTreeDepth = 3, label = list(offset = c(0, -11)))
Run the code above in your browser using DataLab