Add colour to nodes in ggnet using their initials

Question

I want to plot a network in R with 2 different colours. I want to create two categories of nodes depending on their initials. The category "one" will include every