Hier ist eine Möglichkeit, mit bubbles
(es basiert auf htmlwidgets
so kann es von der R-Konsole RStudio, R Markdown Dokumente und glänzende Anwendungen verwendet werden.):
# devtools::install_github("jcheng5/bubbles")
library(bubbles)
bubbles(value = runif(26), label = LETTERS,
color = rainbow(26, alpha=NULL)[sample(26)])
Welche gibt:
Alternativ können Sie packcircles
verwenden. Aus der Dokumentation:
Die Funktion circleProgressiveLayout
ordnet einen Satz von Kreisen, die durch ihre Größe bezeichnet sind, nacheinander durch jeden Kreis extern Tangente an zwei Kreisen zuvor platzierten platzieren, während Überlappungen zu vermeiden. Es wurde von einer Version in C von Peter Menzel adaptiert.
# 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()
Welche gibt: