animated_flametree.R

library(flametree)
library(ggplot2)
library(gganimate)

dat <- flametree_grow(time = 13)

pic <- ggplot(
  data = dat,
  mapping = aes(
    x = coord_x,
    y = coord_y,
    color = seg_col,
    group = id_path
)) +
geom_line(show.legend = FALSE, size = 1) +
theme_void() +
scale_color_viridis_c()

anim <- pic +
  transition_time(time = id_path) +
  shadow_mark()

anim_save("~/Desktop/growth.gif", anim)