geomnet | 这样惊艳的网络图一键搞定，真好用...

DataCharm

发布于 2024-04-11 20:20:31

1341

发布于 2024-04-11 20:20:31

前言

我们的数据可视化课程已经上线啦！！目前课程的主要方向是科研、统计、地理相关的学术性图形绘制方法，后续也会增加商务插图、机器学等、数据分析等方面的课程。课程免费新增，这点绝对良心！
我们第一个数据可视化交流圈子也已经上线了，主要以我的第一本书籍《科研论文配图绘制指南-基于Python》为基础进行拓展，提供「课堂式」教学视频，还有更多拓展内容，可视化技巧远超书籍本身，书籍修正和新增都会分享到圈子里面~~
参与课程或者圈子的你将获取到：学员答疑、可视化资源分享、可视化技巧补充、可视化业务代做(学员和甲方对接)、副业交流、提升认知等等。

「geomnet」-高效绘制网络结构图~~

今天在查找资料的时候，发现了一个绘制网络结构图特别简单的可视化工具-「geomnet」，下面就简单介绍一下这个工具~

geomnet包介绍
- geomnet是一个建立在最新的 ggplot2 主要版本之上的软件包。
- 它提供了一个名为geom_net() 的 ggplot2 geom，用于可视化图形和网络。
- 它还包含了stat_net() 函数，用于使用sna软件包计算网络布局。
- 最后，它还提供了geom_circle() 函数，用于使用 ggplot2绘制圆形。
geomnet包安装

直接使用devtools方法安装最新版本的geomnet，如下：

devtools::install_github("sctyner/geomnet")

geomnet包可视化案例

library(dplyr)
library(geomnet)
data(theme_elements)
# data step
TEnet <- fortify(as.edgedf(theme_elements$edges[,c("parent", "child")]), theme_elements$vertices)
# create a degree variable for use later
TEnet <- TEnet %>%
  group_by(from_id) %>%
  mutate(degree = sqrt(10 * n() + 1))
# plot
ggplot(data = TEnet,
       aes(from_id = from_id, to_id = to_id)) +
  geom_net(layout.alg = "fruchtermanreingold",
    aes(fontsize = degree), directed = TRUE,
    labelon = TRUE, size = 1, labelcolour = 'black',
    ecolour = "grey70", arrowsize = 0.5,
    linewidth = 0.5, repel = TRUE) +
  theme_net() +
  xlim(c(-0.05, 1.05))

geom_net()函数案例

library(geomnet)
data(blood)
ggplot(data = blood$edges, aes(from_id = from, to_id = to)) +
  geom_net(colour = "darkred", layout.alg = "circle", labelon = TRUE,
           size = 15, directed = TRUE, vjust = 0.5, labelcolour = "grey80",
           arrowsize = 1.5, linewidth = 0.5, arrowgap = 0.05,
           selfloops = TRUE, ecolour = "grey40") +
  theme_net()

geom_net()函数案例

还可以分面绘制网络结构图：

分面绘制案例01


ggplot(data = emailnet, aes(from_id = from, to_id = to_id)) +
  geom_net(aes(colour= CurrentEmploymentType), linewidth=0.5, fiteach=FALSE) +
  scale_colour_brewer(palette="Set2") +
  facet_wrap(~day, nrow=2) + theme(legend.position="bottom")

分面绘制案例02


data(football)
ftnet <- fortify(as.edgedf(football$edges), football$vertices)

p <- ggplot(data=ftnet, aes(from_id=from_id, to_id=to_id))
p + geom_net(aes(colour=value), linewidth=0.75, size=4.5, ecolour="grey80") +
  scale_colour_brewer("Conference", palette="Paired") + theme_net() +
  theme(legend.position="bottom")