R语言绘制著名的franklin单向、双向、无向星形图

library(igraph)
print(edge_attr)
g <- make_graph("krackhardt_kite")%>%set_vertex_attr("color", 
value ='violet')%>%set_edge_attr("color", 
value ='slategray')%>%set_vertex_attr("shape", value ='circle')%>%set_edge_attr('arrow.mode',
value =1)%>%set_edge_attr('arrow.width',value=1.5)%>%set_edge_attr('width',value=4)%>%
set_vertex_attr("size",value =20)%>%set_vertex_attr("label",value ="chen's")%>%
set_vertex_attr("label.dist",value =0)%>%set_edge_attr("label",value ='model')%>%
set_edge_attr("curved",value =TRUE)
bridges(g)
plot(g)

g <- make_graph("franklin")%>%set_vertex_attr("color", 
value ='violet')%>%set_edge_attr("color", 
value ='slategray')%>%set_vertex_attr("shape", value ='circle')%>%set_edge_attr('arrow.mode',
value =1)%>%set_edge_attr('arrow.width',value=1.5)%>%set_edge_attr('width',value=4)%>%
set_vertex_attr("size",value =20)%>%set_vertex_attr("label",value ="chen's")%>%
set_vertex_attr("label.dist",value =0)%>%set_edge_attr("label",value ='model')%>%
set_edge_attr("curved",value =TRUE)

g <- make_graph("franklin")%>%set_vertex_attr("color", 
value ='violet')%>%set_edge_attr("color", 
value ='slategray')%>%set_vertex_attr("shape", value ='circle')%>%set_edge_attr('arrow.mode',
value =1)%>%set_edge_attr('arrow.width',value=1.5)%>%set_edge_attr('width',value=4)%>%
set_vertex_attr("size",value =20)%>%set_vertex_attr("label",value ="meta")%>%
set_vertex_attr("label.dist",value =0)%>%set_edge_attr("label",value ='facebook')%>%
set_edge_attr("curved",value =TRUE)

g <- make_graph("franklin")%>%set_vertex_attr("color", 
value ='violet')%>%set_edge_attr("color", 
value ='slategray')%>%set_vertex_attr("shape", value ='circle')%>%set_edge_attr('arrow.mode',
value =3)%>%set_edge_attr('arrow.width',value=1.5)%>%set_edge_attr('width',value=4)%>%
set_vertex_attr("size",value =20)%>%set_vertex_attr("label",value ="meta")%>%
set_vertex_attr("label.dist",value =0)%>%set_edge_attr("label",value ='instagram')%>%
set_edge_attr("curved",value =TRUE)

g <- make_graph("franklin")%>%set_vertex_attr("color", 
value ='violet')%>%set_edge_attr("color", 
value ='slategray')%>%set_vertex_attr("shape", value ='circle')%>%set_edge_attr('arrow.mode',
value =2)%>%set_edge_attr('arrow.width',value=1.5)%>%set_edge_attr('width',value=4)%>%
set_vertex_attr("size",value =20)%>%set_vertex_attr("label",value ="Trump")%>%
set_vertex_attr("label.dist",value =0)%>%set_edge_attr("label",value ='instagram')%>%
set_edge_attr("curved",value =TRUE)

g <- make_graph("franklin")%>%set_vertex_attr("color", 
value ='violet')%>%set_edge_attr("color", 
value ='slategray')%>%set_vertex_attr("shape", value ='circle')%>%set_edge_attr('arrow.mode',
value =3)%>%set_edge_attr('arrow.width',value=1.5)%>%set_edge_attr('width',value=4)%>%
set_vertex_attr("size",value =20)%>%set_vertex_attr("label",value ="Biden")%>%
set_vertex_attr("label.dist",value =0)%>%set_edge_attr("label",value ='instagram')%>%
set_edge_attr("curved",value =FALSE)

g <- make_graph("franklin")%>%set_vertex_attr("color", 
value ='violet')%>%set_edge_attr("color", 
value ='slategray')%>%set_vertex_attr("shape", value ='circle')%>%set_edge_attr('arrow.mode',
value =2)%>%set_edge_attr('arrow.width',value=1.5)%>%set_edge_attr('width',value=4)%>%
set_vertex_attr("size",value =20)%>%set_vertex_attr("label",value ="Biden")%>%
set_vertex_attr("label.dist",value =0)%>%set_edge_attr("label",value ='instagram')%>%
set_edge_attr("curved",value =FALSE)

g <- make_graph("franklin")%>%set_vertex_attr("color", 
value ='violet')%>%set_edge_attr("color", 
value ='slategray')%>%set_vertex_attr("shape", value ='circle')%>%set_edge_attr('arrow.mode',
value =1)%>%set_edge_attr('arrow.width',value=1.5)%>%set_edge_attr('width',value=4)%>%
set_vertex_attr("size",value =20)%>%set_vertex_attr("label",value ="Biden")%>%
set_vertex_attr("label.dist",value =0)%>%set_edge_attr("label",value ='instagram')%>%
set_edge_attr("curved",value =FALSE)

g <- make_graph("franklin")%>%set_vertex_attr("color", 
value ='violet')%>%set_edge_attr("color", 
value ='slategray')%>%set_vertex_attr("shape", value ='circle')%>%set_edge_attr('arrow.mode',
value =0)%>%set_edge_attr('arrow.width',value=1.5)%>%set_edge_attr('width',value=4)%>%
set_vertex_attr("size",value =20)%>%set_vertex_attr("label",value ="Biden")%>%
set_vertex_attr("label.dist",value =0)%>%set_edge_attr("label",value ='instagram')%>%
set_edge_attr("curved",value =FALSE)

参考文献:《Network Analysis and Visualization》

开发工具:RStudio 2023.06.1 Build 524和微信Alt+A截屏工具