r - 将标签放在 R ggraph 包中的节点内

Question

我正在尝试使用 ggraph 可视化网络。我的代码如下：

ggraph(x, layout = "fr") +
  geom_edge_link(aes(width = weight), alpha = 0.50, edge_color = "grey20") +
  geom_node_point(color = "black", size = 12, show.legend = FALSE, family = "serif") +
  geom_node_label(aes(label = name),  
                  repel = TRUE, show.legend = FALSE, family = "serif") +
  theme_graph(background = "white")

它产生以下网络图片段：

节点图像

是否可以在 ggraph 的节点内创建标签？我尝试了 geom_node_label 和 geom_node_text 但它们都不是那样工作的。我还在下面上传了一个我想到的例子：

示例图像

我将衷心感谢您的帮助。祝大家有个健康的夏天。

Answer 1

geom_node_text()是正确的。文本被隐藏，因为它是黑底黑字。

x <- data.frame('from' = c(1,2,3,4), 'to' = c(3,3,1,1), 'weight' = c(1,1,1,1))

ggraph(x, layout = "fr") +
  geom_edge_link(aes(width = weight), alpha = 0.50, edge_color = "grey20") +
  geom_node_point(color = "black", size = 12, show.legend = FALSE, family = "serif") +
  geom_node_text(aes(label = name),  colour = 'white', size=10,
                  show.legend = FALSE, family = "serif") +
  theme_graph(background = "white")

给出这个情节