library(dplyr)
data.frame(parent = c(NA, "A", "A", "C", "C"),
node = c("A", "B", "C", "D", "E"),
size = c(NA, 8L, 7L, 6L, 5L)) %>%
circle_packing("node", "parent", "size",
accessibility = list(hideTextures = TRUE,
hideDataTableButton = TRUE))
library(dplyr)
data.frame(Orange) %>%
mutate(age = as.character(age)) %>%
bind_rows(data.frame(Tree = c(rep("Trees", 5), NA),
age = c(1:5, "Trees"))) %>%
circle_packing("age", "Tree", "circumference",
accessibility=list(hideTextures = TRUE,
includeDataKeyNames = TRUE,
hideDataTableButton = TRUE))
Run the code above in your browser using DataLab