R语言绘制各式各样的图形

R语言绘制五个节点的有向图

library(igraph)
g2 <- graph(edges=c(1,4,1,3,1,2,1,5,2,4,2,3,2,5), n=5)%>%set_vertex_attr("color", 
value ='cadetblue')%>%set_edge_attr("color", value ='brown')%>%set_vertex_attr("shape", value ='sphere')
plot(g2)   

R语言绘制著名的公牛网状图

library(igraph)
g <- make_graph("Bull")%>%set_vertex_attr("color", value ='cadetblue')%>%set_edge_attr("color", 
value ='brown')%>%set_vertex_attr("shape", value ='sphere')%>%set_edge_attr('arrow.mode',
value =3)%>%set_edge_attr('arrow.width',value=1.5)%>%set_edge_attr('width',value=4)
bridges(g)
plot(g)

R语言绘制单向有向的星型图

library(igraph)
g <- make_ring(10)%>%set_edge_attr('arrow.mode', value =2)%>%set_vertex_attr("color", 
value ='violet')%>%set_edge_attr("color", value ='slategray')%>%set_vertex_attr("shape", value ='sphere')
as.directed(g, "mutual")
plot(g)

R语言绘制10个节点的星型图

library(igraph)
g2 <- make_star(10)%>%set_edge_attr('arrow.mode', value =2)%>%set_vertex_attr("color", 
value ='cadetblue')%>%set_edge_attr("color", value ='brown')%>%set_vertex_attr("shape", value ='sphere')
as.undirected(g2)
plot(g2)

R语言绘制滑动窗口

library(igraph)
g3 <- make_ring(10, directed = TRUE, mutual = FALSE)%>%set_vertex_attr("color", 
value ='cadetblue')%>%set_edge_attr("color", value ='brown')%>%set_vertex_attr("shape", value ='sphere')
E(g3)$weight <- seq_len(ecount(g3))
ug3 <- as.undirected(g3)%>%set_vertex_attr("color", 
value ='cadetblue')%>%set_edge_attr("color", value ='brown')%>%set_vertex_attr("shape", value ='sphere')
print(ug3, e = TRUE)
## 没有运行:
x11(width = 10, height = 5)
layout(rbind(1:2))
plot(g3, layout = layout_in_circle, edge.label = E(g3)$weight)
plot(ug3, layout = layout_in_circle, edge.label = E(ug3)$weight)

IGRAPH ec63084 U-W- 10 10 -- Ring graph
+ attr: name (g/c), mutual (g/l), circular (g/l), color (v/c), shape (v/c), weight (e/n), color (e/c)
+ edges from ec63084:
 [1] 1-- 2 2-- 3 3-- 4 4-- 5 5-- 6 6-- 7 7-- 8 8-- 9 1--10 9--10

有向单向星型图,也可以理解为滑动窗口

有向双向星型图，也可以理解为滑动窗口

g3 <- make_ring(10, directed = TRUE, mutual = TRUE)%>%set_vertex_attr("color", 
value ='cadetblue')%>%set_edge_attr("color", value ='brown')%>%set_vertex_attr("shape", value ='sphere')

参考文献:《Network Analysis and Visualization》
https://kateto.net/netscix2016.html
开发工具:RStudio和微信Alt+A截屏工具