Como personalizar uma lenda ggnet2 em R?

Eu estou tentando produzir uma trama usando o ggnet2pacote no R. Eu criei uma rede (net.bg) e estou usando ggnet2para tramar-lo assim:

p   <- ggnet2(net.bg, 
              mode = circle, 
              size = RImp,
              color = RImp,
              node.color = pal,
              label = nam,
              edge.size = Rint, 
              edge.label = Rint,
              edge.color = grey) 
 p

Onde, RImpé é um conjunto de valores que determina o tamanho do nó, Rintdetermina o tamanho da borda, e namé apenas o nome dos nós. palé apenas uma chamada para o RColorBrewerpacote usando o seguinte código:

pal <- brewer.pal(length(nam),Paired)

Isso produz uma trama como a abaixo:

No entanto, eu estou tentando colorir a legenda para o nó correspondente ... mas estou tendo problemas para descobrir isso. Eu tentei usar o palettee color.legendargumentos ggnet2, mas eu não consigo fazê-lo funcionar?

Alguma sugestão de como eu iria corrigir isso?