分解图的每个顶点的不同顶点形状

Question

我有一个非常大的二分网络模型，它是从 500 万行数据集中创建的。我分解了我的网络模型，因为我无法绘制这种大小的图表。现在我需要的是一张一张地绘制分解图形。没有问题。但是我想根据每个节点的属性来绘制带有形状的图形。例如，我想要一个正方形代表我的图表 G 上的“A”属性，而一个三角形代表“B”属性。除此之外，我想按属性添加顶点标签。这是我在创建二分 G 及其工作后绘制图的第一个组件的代码：

    components <- decompose(G)
    plot(components[[1]]) 

我尝试了这样的方法来根据图形属性添加标签和更改顶点形状，但没有奏效：

    plot(components[[1]], vertex.label= V(G)$attributes, 
    vertex.shape=c("square", "triangle"))

有没有人可以帮助我，我被困住了。非常感谢！

Answer 1

components 函数返回组成组件的顶点列表。所以你需要遍历列表，创建一个子图并绘图。至于绘制属性，您需要提供一个可重现的示例供我们帮助。

library(igraph)
set.seed(8675309)

g <- sample_gnp(200, p = 0.01)
V(g)$name <- paste0("Node", 1:vcount(g))
V(g)$shape <- sample(c("circle","square"), vcount(g), replace = T)
clu <- components(g)
grps <- groups(clu)

lapply(grps, function(x) plot(induced_subgraph(g, x)))