C Comic (xkcd-like) phylogenetic tree

library(htmltools)    
library(XML)    
library(gridSVG)    
library(ggplot2)    
library(ggtree)
library(comicR)    

p <- ggtree(rtree(30), layout="circular")  +
    geom_tiplab(aes(label=label), color="purple")
print(p)
svg <- grid.export(name="", res=100)$svg
tagList(
    tags$div(
             id = "ggtree_comic",
             tags$style("#ggtree_comic text {font-family:Comic Sans MS;}"),
             HTML(saveXML(svg)),
             comicR("#ggtree_comic", ff=5)
         )
) # %>% html_print
t23 t17 t28 t18 t9 t19 t27 t25 t5 t30 t15 t29 t10 t24 t4 t14 t3 t2 t26 t13 t21 t16 t11 t8 t20 t1 t12 t6 t22 t7