7

我正在使用一个有 121 个顶点和 209 个边的图,我试图从这个图中删除满足两个条件的顶点:

  1. degree(my.graph)==0
  2. 顶点的名称以指定字符开头。

这是一个显示我想要得到的示例。从下图中:

toy.graph <- graph.formula(121-221,121-345,121-587,345-587,221-587, 490, 588)

我想删除以 5 开头的度数为 0 的顶点。在这种情况下,我只想删除顶点 588(而不是 490 和 587)。我知道如何删除以 5 开头的顶点:

delete.vertices(toy.graph,V(toy.graph)$name 
                %in% grep("^5",V(toy.graph)$name,value=T))

以及如何删除度数为 0 的顶点:

delete.vertices(toy.graph, V(toy.graph)[degree(toy.graph)==0])

但是当我尝试将这两个条件放在一起时,那就是

delete.vertices(toy.graph, V(toy.graph)$name %in%     
                grep("^5",V(toy.graph)$name,value=T) 
                && V(toy.graph)[degree(toy.graph)==0])

它不起作用,我取回了完整的图表。有没有一种特殊的方法可以组合多个条件来删除顶点?

谢谢!

4

1 回答 1

8

我相信这就是你想要的:

delete.vertices(toy.graph, 
            V(toy.graph)[ degree(toy.graph) == 0 &
                            grepl("^5", V(toy.graph)$name) ] )

波兹拉维亚姆 :)

于 2015-10-21T14:10:23.077 回答