¿Cómo eliminar "a" de una leyenda de la gráfica ggraph?

¿Se puede eliminar la letra "a" de la leyenda asociada con, p. unafill ocolour estética, en unggraph trama de red, como en el ejemplo simple a continuación?

library(igraph)
library(ggraph)

g1 <- make_ring(6)
vertex_attr(g1) <- list(name = LETTERS[1:6],  type =rep(c("typeA", "typeB", "typeC"), 2))

ggraph(g1) + geom_node_label(aes(label = name, fill = type)) + 
  geom_edge_diagonal() + theme_graph()

En el caso degeom_text, show.legend = FALSE lo resuelve

Elimine 'a' de la leyenda cuando use estética y geom_text

pero agregandoshow.legend = FALSE dentrogeom_node_label(), elimina la leyenda por completo.

¿Hay alguna solución para esto enggraph?

Respuestas a la pregunta(1)

Su respuesta a la pregunta