Wie ändert man die Farbe der Knoten?

Question

Ich versuche, die Farbe der Knoten abhängig von dem Monat zu ändern. Im Moment habe ich es auf diese Weise gemacht, was überhaupt nicht prägnant ist und für große Datensätze nicht funktionieren würde. Gibt es einen besseren Weg?

Data <- read.csv(.....) 

library(igraph) 

MartixData <- as.matrix(Data) 

NetworkData <- graph.adjacency(MatrixData, mode="directed", weighted=TRUE) 

V(NetworkData) 

V(NetworkData)$month <- c("June", "July", "July", "February", "September", "June", "September", "June", "December", "September", "March", "April", "September") 

plot(NetworkData, layout=layout.circle, vertex.color=c("yellow", "red", "red", "blue", "pink","yellow", "pink", "yellow", "gray", "pink", "black", "orange", "pink")) 

Jede Hilfe wäre sehr willkommen!

#Results for dput(NetworkData) 
structure(list(13, TRUE, 
    c(0, 1, 1, 2, 5, 6, 7, 7, 8, 9, 10, 10, 12, 12, 12, 12, 12), 
    c(11, 4, 12, 0, 12, 1, 6, 12, 1, 4, 9, 12, 1, 5, 7, 10, 11), 
    c(0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16), 
    c(3, 5, 8, 12, 1, 9, 13, 6, 14, 10, 15, 0, 16, 2, 4, 7, 11), 
    c(0, 1, 3, 4, 4, 4, 5, 6, 8, 9, 10, 12, 12, 17), 
    c(0, 1, 4, 4, 4, 6, 7, 8, 9, 9, 10, 11, 13, 17), 
    list(c(1, 0, 1), structure(list(), .Names = character(0)), 
structure(list(name = c("A", "B", "C", "D", "E", "F", 
    "G", "H", "I", "J", "K", "L", "M"), month = c("June", 
    "July", "July", "February", "September", "June", "September", 
    "June", "December", "September", "March", "April", "September" 
    )), .Names = c("name", "month")), structure(list(weight = c(6, 
    6, 7, 6, 7, 6, 6, 7, 7, 7, 6, 7, 7, 7, 7, 7, 7)), .Names = "weight"))), class = "igraph") 

Answer 1

Verwenden Sie das Nachschlagewörterbuch für Farben und weisen Sie es der Scheitelpunktfarbe zu.

myCols <- setNames(c("yellow", "red", "blue", "pink", "gray", "black", "orange"), 
        c("June", "July", "February", "September", "December", "March", "April")) 

# assign a colour for vertex 
V(NetworkData)$color <- myCols[V(NetworkData)$month] 

# then plot, no need to use "vertex.color=" 
plot(NetworkData, layout = layout.circle)