Как удалить "a" из легенды сюжета ggraph?

Question

Можно ли удалить букву "а" из легенды, связанной, например, с fill или же colour эстетический, в ggraph сетевой сюжет, как в простом примере ниже?

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()

В случае geom_text, show.legend = FALSE решает это,

Удалите "a" из легенды при использовании эстетики и geom_text

но добавляя show.legend = FALSE в geom_node_label(), удаляет легенду полностью.

есть ли решение для этого в ggraph?

Answer 1

Ответьте на оригинальный вопрос, основываясь на комментариях выше: В верхней части сценария необходимо добавить следующую строку кода в соответствии с решением @user20650.

library(grid)
GeomLabel$draw_key <- function (data, params, size) { draw_key_rect(data) }

Если repel = TRUE аргумент используется внутри geom_node_labelто в дополнение к вышесказанному GeomLabelRepel$draw_key <- GeomLabel$draw_key должен быть добавлен.