powered by
arcTextGrob(x=unit(0.5, "npc"), y=unit(0.5, "npc"), labels=library()$results[, 1], links=sample(seq_along(labels), 50, rep = TRUE), default.units="npc", gp=gpar(), ...)
library(grid) set.seed(1234) grid.newpage() grid.arcText()
Run the code above in your browser using DataLab