怎么使用R语言ggplot2画网络图
发表于:2024-09-25 作者:千家信息网编辑
千家信息网最后更新 2024年09月25日,本篇文章为大家展示了怎么使用R语言ggplot2画网络图,内容简明扼要并且容易理解,绝对能使你眼前一亮,通过这篇文章的详细介绍希望你能有所收获。今天要模仿的图片来自于论文 Core gut micro
千家信息网最后更新 2024年09月25日怎么使用R语言ggplot2画网络图
本篇文章为大家展示了怎么使用R语言ggplot2画网络图,内容简明扼要并且容易理解,绝对能使你眼前一亮,通过这篇文章的详细介绍希望你能有所收获。
今天要模仿的图片来自于论文 Core gut microbial communities are maintained by beneficial interactions and strain variability in fish。期刊是 Nature microbiology
之前分享过两篇使用R语言的ggraph
包画网络图的推文
R语言网络图的一个小例子
R语言做网络图的又一个小例子
(点击以上蓝色字体可以直达推文内容)
但是今天这个论文里的网络图是两个两个圆形的布局,这个用ggraph
包如何来实现自己暂时还不知道。
首先是构造数据集仔细想了一下,这个网络图就是点和线的组合,使用
ggplot2
包的geom_point()
和geom_segment()
函数应该可以比较方便的实现。因为是圆形的布局,所以散点的坐标直接用圆形函数来生成就好了。有了想法 下面实现一下。
散点的位置坐标用圆形函数来生成,圆心是(0,0)半径是4,总共生成32个点
a<-90/8
a
x1<-c()
y1<-c()
for (i in 1:7){
x1<-append(x1,4*cos(i*a*pi/180))
y1<-append(y1,4*sin(i*a*pi/180))
}
x1
y1
df1<-data.frame(x=x1,y=y1)
df2<-data.frame(x=x1,y=-y1)
df3<-data.frame(x=-x1,y=y1)
df4<-data.frame(x=-x1,y=-y1)
df5<-data.frame(x=c(0,4,0,-4),
y=c(4,0,-4,0))
df11<-rbind(df1,df2,df3,df4,df5)
df11$group<-"A"
df11$color<-sample(c("A","B"),dim(df11)[1],replace = T)
接下来画一个简单的散点图试一下ggplot(df11,aes(x,y))+
geom_point(aes(shape=color,color=color),size=5)+
theme(panel.background = element_blank(),
axis.title = element_blank(),
axis.text = element_blank(),
axis.ticks = element_blank())
按照这个思路是可以实现今天推文中提到的论文里的网络图的。今天时间有限,下面的代码就不详细介绍了,先记录在这里
library(dplyr)
library(ggplot2)
a<-90/8
a
x1<-c()
y1<-c()
for (i in 1:7){
x1<-append(x1,4*cos(i*a*pi/180))
y1<-append(y1,4*sin(i*a*pi/180))
}
x1
y1
df1<-data.frame(x=x1,y=y1)
df2<-data.frame(x=x1,y=-y1)
df3<-data.frame(x=-x1,y=y1)
df4<-data.frame(x=-x1,y=-y1)
df5<-data.frame(x=c(0,4,0,-4),
y=c(4,0,-4,0))
df11<-rbind(df1,df2,df3,df4,df5)
df11$group<-"A"
df11$color<-sample(c("A","B"),dim(df11)[1],replace = T)
b<-90/2
b
x2<-c()
y2<-c()
for (i in 1){
x2<-append(x2,1*cos(i*b*pi/180))
y2<-append(y2,1*sin(i*b*pi/180))
}
x2
y2
df6<-data.frame(x=x2+5,y=y2+5)
df7<-data.frame(x=-x2+5,y=y2+5)
df8<-data.frame(x=x2+5,y=-y2+5)
df9<-data.frame(x=-x2+5,y=-y2+5)
df10<-data.frame(x=c(0,1,0,-1)+5,
y=c(1,0,-1,0)+5)
df22<-rbind(df6,df7,df8,df9,df10)
df22$group<-"B"
df22$color<-sample(c("C","D"),dim(df22)[1],replace = T)
df<-rbind(df11,df22)
df$lable<-paste("Sample",1:dim(df)[1],sep="_")
node1<-sample(df$lable,60,replace = T)
node2<-sample(df$lable,60,replace = T)
dfnode<-data.frame(node1,node2)
dfnode
x3<-c()
y3<-c()
xend<-c()
yend<-c()
for (i in 1:60){
label1<-dfnode[i,]$node1
#print(label1)
label2<-dfnode[i,]$node2
#print(label2)
dfnew1<-filter(df,lable==label1)
#print("OK")
dfnew2<-filter(df,lable==label2)
x3<-append(x3,dfnew1$x)
y3<-append(y3,dfnew1$y)
xend<-append(xend,dfnew2$x)
yend<-append(yend,dfnew2$y)
}
dfedge<-data.frame(x=x3,xend,y=y3,yend)
dfedge$node1<-node1
dfedge$node2<-node2
dfedge$group<-sample(c("A","B","C"),dim(dfedge)[1],replace = T)
ggplot()+
geom_segment(data=dfedge,aes(x=x,y=y,xend=xend,yend=yend),
size=1,color="grey",alpha=0.5)+
geom_point(data=df,
aes(x,y,shape=group,
color=group),
size=5)+
theme(panel.background = element_blank(),
axis.text = element_blank(),
axis.title = element_blank(),
axis.ticks = element_blank())
最终的结果是所以如果有了网络图点和边的数据,自己应该可以用ggplot2来做网络图了。
上述内容就是怎么使用R语言ggplot2画网络图,你们学到知识或技能了吗?如果还想学到更多技能或者丰富自己的知识储备,欢迎关注行业资讯频道。
网络
语言
圆形
内容
函数
论文
两个
例子
坐标
就是
布局
技能
数据
知识
生成
简明
接下来
简明扼要
代码
位置
数据库的安全要保护哪些东西
数据库安全各自的含义是什么
生产安全数据库录入
数据库的安全性及管理
数据库安全策略包含哪些
海淀数据库安全审计系统
建立农村房屋安全信息数据库
易用的数据库客户端支持安全管理
连接数据库失败ssl安全错误
数据库的锁怎样保障安全
珠海优特电力 软件开发
米玩网络技术有限公司
数据库查询完要释放嘛
企业一卡通数据库建表
为个人软件开发服务的公司
服务器电源线粗细要求
不同空间数据库模型
街道学习网络安全法简报
数据库应用技术 1256
苏州桥梁管理软件开发
戴尔服务器在哪个国家
安徽戴尔服务器现货供应
更好的服务器安全防护
服务器分为几种
网络安全工程师专业学科
服务器类3c编号查询
流放者怎么无法服务器设置
网络安全法正式实行是哪一天
连接数据库要用maven嘛
为了您的网络安全 请在家庭
创造与模仿哪个服务器最适合新人
云服务器 双线
科技互联网公司收入
网络安全宣传全面开花
pubg的服务器刷新率
国际网络技术大会
永州企业电子仓库软件开发
查看链接数据库ip
数据库课程设计分析管理系统
如何封服务器端口