代码之家 › 专栏 › 技术社区 › markus

使用ggplot2创建类似于d3.js force layout的气泡图

circle-pack data-visualization ggplot2 r

markus · 技术社区 · 6 年前

是否可以使用 r ,最好是 ggplot2 ,制作类似于此的气泡图?


   
    
     
      
       
      
     
     
      考虑到本例中有三个类别,属性是
     
     
      
       所有圆互相吸引(将圆聚集在一起)
      
      
       碰撞检测(防止圆圈重叠)
      
      
       圆圈被吸引到三个中心中的一个,这取决于它们的类别。
      
     
     
      来源:
      
       d3indepth.com/force layout
      
     
     
      
       data(虽然我确实确定此类绘图的数据应该是什么样子)
      
     
     
      set.seed(1)
dat<-dat a.frame(category=rep(c(“a”、“b”、“c”),每个=10),
气泡=代表(1:10,3)
半径=圆形(RUNIF(30,最小值=0.5,最大值=3),2)
字符串因子=假)
达特
< /代码> 

I'm tagging this withd3.js-which I a m not knowledge with-though the questions is aboutr。我希望能吸引熟悉的社区成员。.@del>但是请随意编辑标签和/或帖子。


谢谢。


考虑到本例中有三个类别,属性是


所有圆互相吸引(将圆聚集在一起)
碰撞检测(防止圆圈重叠)
圆圈被吸引到三个中心中的一个,这取决于它们的类别。


来源: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. 我希望能吸引熟悉这两者的社区成员。但请随意编辑标签和/或帖子。

谢谢。

1 回复 | 直到 6 年前

Jake Kaupp 6 年前

在布局中需要进一步的工作/调查,但这里有一个方法。

library(packCircles)
图书馆(tidyverse)

SET种子(1)
dat<-dat a.frame(category=rep(c(“a”、“b”、“c”),每个=10),
ID= 1:30,
半径=圆形(RUNIF(30,最小值=0.5,最大值=3),2)
字符串因子=假)

#通过拆分、映射和重新组合为每个组创建布局
日期gg<-dat%>%
拆分(.$category)%>%
映射(~CircleProgressLayout(.x$radius,sizeType='radius'))%>%
imap_dfr(~CircleLayoutvertices(.x,npoints=50)%>%变异(category=0.y))

做某事
GGPROTH()+
几何多边形(data=dat.gg,aes(x,y,group=id,fill=category),colour=“black”,alpha=0.6)+
面包(~类别)+
缩放_fill_viridis_d()。+
主题_void()。+
主题(legend.position=“none”,plot.margin=单位(c(0,0,0,0),“cm”))+
COODIN等式()
< /代码> 



^{created on 2018-11-20 by thereprex package(v0.2.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()




^{创建于2018-11-20reprex package(v0.2.1)}