如何为ggraph生成的图表添加自定义图例？

• 手动绘制图例元素
  利用ggplot2的annotate()或annotation_custom()函数，直接在ggraph图表上绘制矩形、文本等图例元素，通过调整坐标位置将其放在图表下方或附近，适合完全自定义样式的图例：

  library(ggraph)
  library(ggplot2)
  
  # 绘制你的ggraph主图
  main_plot <- ggraph(your_graph_object) +
    geom_edge_link(color = "gray") +
    geom_node_point(aes(size = node_size))
  
  # 添加自定义图例
  main_plot +
    # 绘制颜色块
    annotate("rect", xmin = -15, xmax = -12, ymin = -3, ymax = -2, fill = "#FF5733") +
    annotate("rect", xmin = -15, xmax = -12, ymin = -4, ymax = -3, fill = "#33FF57") +
    # 添加对应文本
    annotate("text", x = -11, y = -2.5, label = "高权重节点") +
    annotate("text", x = -11, y = -3.5, label = "低权重节点") +
    # 调整坐标范围确保图例显示
    coord_cartesian(xlim = c(-18, max(main_plot$data$x)), ylim = c(-5, max(main_plot$data$y)))
  

• 单独创建图例图再拼接
  用ggplot2单独绘制一个仅包含图例的极简图表，再借助patchwork包将主图和图例图拼接在一起，灵活控制图例的位置（如下方、右侧）：

  library(patchwork)
  
  # 创建纯图例图表
  legend_plot <- ggplot() +
    geom_rect(aes(xmin = 0, xmax = 1, ymin = 1:2, ymax = 2:3), 
              fill = c("#FF5733", "#33FF57")) +
    geom_text(aes(x = 1.3, y = 1.5:2.5), 
              label = c("高权重节点", "低权重节点"), hjust = 0) +
    theme_void() + # 移除所有默认主题元素
    theme(plot.margin = margin(0, 0, 0, 0))
  
  # 让图例在主图下方（若要放在右侧，用`main_plot + legend_plot + plot_layout(widths = c(8, 1))`）
  main_plot / legend_plot + plot_layout(heights = c(8, 1))
  

• 基于映射自定义默认图例
  如果你的图表元素已经通过aes()映射了颜色、形状等属性，可以通过scale_*_manual()自定义图例的样式，再用theme()调整图例的位置：

  main_plot <- ggraph(your_graph_object) +
    geom_node_point(aes(color = node_group, size = node_weight)) +
    # 自定义颜色映射，隐藏图例标题
    scale_color_manual(name = "", values = c("组A" = "#FF5733", "组B" = "#33FF57")) +
    # 将图例移至底部，设置横向排列
    theme(legend.position = "bottom",
          legend.box = "horizontal",
          legend.title = element_blank())
  

内容的提问来源于stack exchange，提问作者People