4

I am trying to colour node 6 and 7 regardless of whatever letter is selected from object 'd'. 

g <- graph_from_literal(1:2:3:4:5 -- 6:7)
# Rename (sum up all the vertices)
d <- c("a", "b", "c", "d", "e", "f", "g","h", "i", "j")

V(g)$name <- sample(d, 7, replace=TRUE)
colours <- c("red")
V(g)$color <- ifelse(V(g)$name == c('a','e'), "white", colours)

plot.igraph(g, layout=layout_with_dh, vertex.label=V(g)$name, 
vertex.size=35,
vertex.color=V(g)$color, #colors.r
vertex.label.cex=0.7,
)

I tried the ifelse() above but they don't seem to take numerical value. I would appreciate some help please.

What I want is that node 6 is e.g. white and 7 is e.g. green and the rest of the other nodes are red.

Thank you!

Sam
  • 261
  • 2
  • 12

2 Answers2

7

You could do

V(g)$color <- "red" 
V(g)$color[6] <- "white"
V(g)$color[7] <- "green"
lukeA
  • 53,097
  • 5
  • 97
  • 100
4

You can also do:

V(g)["nameofnode"]$color<-"red"
Suat Atan PhD
  • 1,152
  • 13
  • 27