r-顶点标签未显示在iGraph Plot中

Question

我正在iGraph中绘制一个二分网络。我用来创建图形的csv是一个边缘列表，格式如下

V1	V2
node1	node3
node4	node7
node1.	node4.

我试过这个：

g <- make_graph(c("node1", "node3", "node4", "node7", "node1", "node4"), directed = FALSE)
g
V(g)$type <- bipartite_mapping(g)$type
V(g)$type
plot(g, layout=layout_as_bipartite, vertex.label.cex = 0.8, vertex.label.color = "red")
V(g)$color <- ifelse(V(g)$type, "lightblue", "salmon")
V(g)$shape <- ifelse(V(g)$type, "circle", "square")
E(g)$color <- "lightgray"
plot(g, layout=layout_as_bipartite)

结果是：

IGRAPH fea8680 UN-- 4 3 -- 
+ attr: name (v/c)
+ edges from fea8680 (vertex names):
[1] node1--node3 node4--node7 node1--node4
[1] FALSE  TRUE  TRUE FALSE

对我来说，它完美无瑕。