自问自答一下：把上面的程序添加修改一下即可，例如我要标记第1-3和5-9这8个点
gg2<-gg
V(gg2)$size <- 5 #先将所有圆圈的大小设置为5
condition<-c(1:3,5:9) #我要标记第1-3和5-9这8个点
V(gg2)$size[condition] <- 10 #将这8个点对应的圆圈大小设置为10（变大）
V(gg2)$size[1] <- 15 #将第一个点对应的圆圈大小设置为15（更大）
V(gg2)$label <- NA #先将所有的标记都去掉
V(gg2)$label[condition] <- V(gg2)$name[condition]#将要标记的这8个点的标记添加上
V(gg2)$cex <- 1 #先将所有标记的字体大小设定为1
V(gg2)$cex[condition] <- 1.5 #将要标记的这8个点的字体大小设定为1.5（变大）
V(gg2)$cex[1] <- 2 #将第一个点对应的标记文字大小设定为2（更大）
set.seed(14)
plot(gg, layout = layout.fruchterman.reingold, vertex.size = V(gg2)$size,
vertex.color = V(gg2)$color,
# mark.groups=split(seq_len(length(V(gg))), V(gg)$sg),
# mark.col=rainbow(max(V(gg)$sg), alpha=0.3),
vertex.label=V(gg2)$label,
vertex.label.cex=V(gg2)$cex,
edge.color = grey(0.4),
edge.arrow.mode = "-")
