echarts4r advanced treemap hacks

treemap.R

library(dplyr)
library(stringr)
library(echarts4r)

n <- 5

set.seed(123)

colors <- c("#d35400", "#2980b9", "#2ecc71", "#f1c40f", "#2c3e50", "#7f8c8d")

df <- data.frame(x = seq_len(n) - 1) %>% 
  mutate(
    value = 10 + x + 10 * sin(x),
    share = value / sum(value),
    name = sample(fruit[str_length(fruit) <= 5], size = n),
    color = rep(colors, length.out = n),
  ) %>% 
  mutate(
    value = round(value, 2),
    name = paste(name, paste0("\n", round(100 * share,2), "%"))
  )

df %>% 
  e_charts() %>% 
  e_treemap(name,
            name,
            value,
            breadcrumb = FALSE,
            roam = FALSE,
            nodeClick = FALSE,
            itemStyle = list(
              normal = list(
                borderWidth = 0,
                gapWidth = 1,
                backgroundColor = "#d3d3d3"
              )
            )) %>% 
  e_title("Fruits",
          textStyle = list(fontFamily = "Fira Sans"),
          textVerticalAlign = "top",
          left = "center") %>% 
  e_labels(
    show = TRUE,
    formatter = "{b}\n({@value} B)",
    fontFamily = "Fira Sans",
    verticalAlign = "top") %>% 
  e_tooltip(
    formatter = e_tooltip_item_formatter(digits = 2)
  ) %>% 
  e_toolbox_feature("saveAsImage", title = 'save as image') %>% 
  e_color(
    color = df$color,
    background = "#d3d3d3"
  )