如何使用R package network或类似工具基于属性值删除网络中的顶点

我正试图从一个矩阵构建一个网络，这样我就可以绘制完整的网络，或者只绘制顶点的子集。我一直在使用R中的网络包 并创建了一个玩具网络，我在其中为顶点添加了两个属性：“年”和“主题”。然后我绘制网络图，使主题的颜色不同

library(network)
B = matrix(c(1, 1, 0, 1, 1,0,1,1,0,1,1,0,0,0,1,0,0,1,1,0,1,0,0,1,0), nrow=5, ncol=5)
b<-network(B)
b %v% "topic"=c("Surveillance","Inspection efficiency","Surveillance","Inspection efficiency","Surveillance")
b %v% "year"=c(2006,2006,2007,2007,2007)
ggnet2(b,node.size = 10, node.color = "topic", edge.size = 1, edge.color = "grey",palette = "Set2",label=c("1101","908","1107","601","604"),label.size = 3)`

库（网络）
B=矩阵（c（1,1,0,1,1,0,1,1,0,1,0,0,0,1,0,0,0,1,0,1,0,0,0,1,0），nrow=5，ncol=5）
b使用
%s%
操作符对网络进行子集划分

library(network)
B = matrix(c(1, 1, 0, 1, 1,0,1,1,0,1,1,0,0,0,1,0,0,1,1,0,1,0,0,1,0), nrow=5, ncol=5)
b<-network(B)
b %v% "topic"=c("Surveillance","Inspection efficiency","Surveillance","Inspection efficiency","Surveillance")
b %v% "year"=c(2006,2006,2007,2007,2007)

b2006 <- b %s% which(b %v% "year"==2006)

库（网络）
B=矩阵（c（1,1,0,1,1,0,1,1,0,1,0,0,0,1,0,0,0,1,0,1,0,0,0,1,0），nrow=5，ncol=5）
b使用
%s%
操作符对网络进行子集划分

library(network)
B = matrix(c(1, 1, 0, 1, 1,0,1,1,0,1,1,0,0,0,1,0,0,1,1,0,1,0,0,1,0), nrow=5, ncol=5)
b<-network(B)
b %v% "topic"=c("Surveillance","Inspection efficiency","Surveillance","Inspection efficiency","Surveillance")
b %v% "year"=c(2006,2006,2007,2007,2007)

b2006 <- b %s% which(b %v% "year"==2006)

库（网络）
B=矩阵（c（1,1,0,1,1,0,1,1,0,1,0,0,0,1,0,0,0,1,0,1,0,0,0,1,0），nrow=5，ncol=5）
B这是一个完美的解决方案！非常感谢你！这是一个完美的解决方案！非常感谢你！