使用ggplot2创建类似于d3.js强制布局的气泡图

Question

是否可以使用R（最好是ggplot2）来制作类似于该气泡图的气泡图？

鉴于此示例中有三类，属性为

• 所有圈子相互吸引（将圈子聚集在一起）
• 碰撞检测（停止圆圈重叠）
• 根据类别将圆形吸引到三个中心之一

来源：d3indepth.com/force-layout

数据（尽管我非常确定这种绘图的数据应该是什么样的）

set.seed(1)
dat <- data.frame(category = rep(c("A", "B", "C"), each = 10),
                  bubble = rep(1:10, 3),
                  radius = round(runif(30, min = 0.5, max = 3), 2),
                  stringsAsFactors = FALSE)
dat

我正在用d3.js标记它-我不熟悉-尽管问题是关于R的。我希望吸引熟悉的社区成员。但请随时编辑标签和/或发布。

谢谢。

Answer 1

需要对布局进行一些进一步的工作/研究，但这是一种方法。

library(packcircles)
library(tidyverse)

set.seed(1)
dat <- data.frame(category = rep(c("A", "B", "C"), each = 10),
                  id = 1:30,
                  radius = round(runif(30, min = 0.5, max = 3), 2),
                  stringsAsFactors = FALSE)

#Create layouts for each group by splitting, mapping and recombining
dat.gg <- dat %>% 
  split(.$category) %>% 
  map(~circleProgressiveLayout(.x$radius, sizetype='radius')) %>% 
  imap_dfr(~circleLayoutVertices(.x, npoints=50) %>% mutate(category = .y))

#Do the thing
ggplot() + 
  geom_polygon(data = dat.gg, aes(x, y, group = id, fill = category), colour = "black", alpha = 0.6) +
  facet_wrap(~category) +
  scale_fill_viridis_d() +
  theme_void() + 
  theme(legend.position="none", plot.margin=unit(c(0,0,0,0),"cm") ) + 
  coord_equal()

^{由reprex package（v0.2.1）于2018-11-20创建}