Пузырьковая диаграмма без оси в R

Question

Я хотел бы создать такую ​​диаграмму в R: http://bl.ocks.org/mbostock/4063269

так просто пузырьковая диаграмма без оси, где пузырьки могут быть разбросаны случайным образом и только характеризуется аргументом размера.

Я заинтересован в том, чтобы делать это в R, где для меня знакомые параметры требуют предоставления переменных x, y и размера.

Answer 1

Вот один из способов использования bubbles (он основан на htmlwidgets поэтому он может быть использован с R консоли, RStudio, R Markdown документов и Shiny приложений.):

# devtools::install_github("jcheng5/bubbles") 
library(bubbles) 

bubbles(value = runif(26), label = LETTERS, 
     color = rainbow(26, alpha=NULL)[sample(26)]) 

Что дает:

---

В качестве альтернативы можно использовать packcircles. Из документации:

Функция circleProgressiveLayout устраивает набор кругов, который , обозначены их размерами, путем последовательного размещения каждого круга внешне касательной к двум ранее размещенным кругам, избегая при этом перекрытий. Он был адаптирован из версии, написанной на C Питером Мензелем.

# 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() 

Что дает: