---
output:
html_document:
code_folding: hide
---
```{r, warning=FALSE, message=FALSE, fig.width=8, fig.height=7.5, dev='svg'}
library(WeightedTreemaps)
library(tidyverse)
df <- dplyr::starwars %>%
mutate(films = films %>% sapply(length)) %>%
mutate(name = substr(name, 1, 20)) %>%
filter(!is.na(homeworld))
# generate voronoi treemap
tm <- voronoiTreemap(
data = df,
levels = c("homeworld", "name"),
cell_size = "films",
shape = "rounded_rect",
positioning = "clustered_by_area"
)
# draw the treemap
drawTreemap(tm,
label_level = 1:2,
label_color = c(grey(0.95), grey(0.85)),
label_size = c(2, 2)
)