2016-05-12 10 views

Antwort

3

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:

enter image description here


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:

enter image description here