est ici un moyen utilisant bubbles
(il est basé sur htmlwidgets
de sorte qu'il peut être utilisé à partir de la console R, rstudio, documents R Markdown et applications brillantes.):
# devtools::install_github("jcheng5/bubbles")
library(bubbles)
bubbles(value = runif(26), label = LETTERS,
color = rainbow(26, alpha=NULL)[sample(26)])
Ce qui donne:
Sinon, vous pouvez utiliser packcircles
. De la documentation:
La fonction circleProgressiveLayout
arrange un ensemble de cercles, qui sont désignés par leurs tailles, en plaçant successivement chaque cercle tangent extérieurement à deux cercles placés précédemment tout en évitant les chevauchements . Il a été adapté d'une version écrite en C par Peter Menzel.
# install.packages("packcircles")
library(packcircles)
library(ggplot2)
p <- circleProgressiveLayout(runif(26))
d <- circleLayoutVertices(p)
ggplot(d, aes(x, y)) +
geom_polygon(aes(group = id, fill = id),
colour = "black", show.legend = FALSE) +
geom_text(data = p, aes(x, y), label = LETTERS) +
scale_fill_distiller(palette = "RdGy") +
theme_void()
Ce qui donne: