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截屏工具