Добавление нескольких цветов к сети в R

Question

library(igraph) 
data <- read.csv("ex.txt", sep=" ", header=F) 

данных содержит список края

graph <- graph.data.frame(data) 
data1 <- read.csv("ex1.txt", sep=" ", header=F) 

data1 содержит членство идентификаторы вершин

memberships <- list() 
V(g)$membership <- data1$V2 
V(g) [ membership == 0 ]$color <- "red" 
V(g) [ membership == 1 ]$color <- "blue" 
V(g) [ membership == 2 ]$color <- "green" 
V(g) [ membership == 3 ]$color <- "brown" 
V(g) [ membership == 4 ]$color <- "orange" 
V(g) [ membership == 5 ]$color <- "Yellow" 
plot(g, layout=layout.fruchterman.reingold, vertex.color=V(g)$membership , vertex.size = 2,vertex.label = NA) 

Если вы заметили, что цвета не так Ожидается, что есть черный и два варианта синего цвета, о которых не упоминалось.

Я не могу найти какой-либо другой способ назначения цвета вершин. Пожалуйста, дайте мне несколько вариантов

Answer 1

Карта vertex.color в V(g)$color:

library(igraph) 
set.seed(1) 
g <- barabasi.game(100, .3) 
eb <- edge.betweenness.community(g) 
V(g)$membership <- membership(edge.betweenness.community(g)) 
V(g)$color = "black" 
V(g) [ membership == 1 ]$color <- "blue" 
V(g) [ membership == 2 ]$color <- "green" 
V(g) [ membership == 3 ]$color <- "brown" 
V(g) [ membership == 4 ]$color <- "orange" 
V(g) [ membership == 5 ]$color <- "Yellow" 
V(g) [ membership == 6 ]$color <- "red" 
plot(g, layout=layout.fruchterman.reingold, vertex.color=V(g)$color , vertex.size = 2,vertex.label = NA, edge.arrow.size = .3)