# NOT RUN {
df <- data.frame(
parent = c("earth", "earth", "earth", "mars", "mars"),
child = c("forest", "ocean", "iceberg", "elon", "curiosity"),
value = ceiling(rnorm(5, 10, 2))
)
df %>%
e_charts() %>%
e_sunburst(parent, child, value) %>%
e_theme("westeros")
# }
Run the code above in your browser using DataLab