嘿，这个需求我之前也帮人解决过，要给多字符缩写做个类似点形状的图例指南，用ggplot其实有几种很实用的实现方式，我给你详细说说：

这种方法利用ggplot的guide_legend()来替换默认的图例符号，把点换成多字符缩写，操作起来很简洁：

library(tibble)
library(ggplot2)
library(ggrepel)

df <- tribble(
  ~x, ~y, ~name, ~initials,
  0, 0, "Hadley Wickam", "HW",
  0, 1, "Ross Ihaka", "RI",
  1, 0, "Robert Gentleman", "RG",
  1, 1, "Yihui Xie", "YX"
)

ggplot(df, aes(x, y, color = initials, label = initials)) +
  geom_point(size = 3) +
  geom_text_repel() +
  guides(color = guide_legend(
    title = "Abbreviations",
    override.aes = list(
      label = df$initials,  # 将图例符号替换为对应缩写
      size = 5,             # 调整图例中缩写的大小
      shape = NA            # 隐藏默认的点形状
    )
  )) +
  theme(legend.key = element_rect(fill = "white"))  # 优化图例背景显示

这里的核心是把initials映射到color美学，然后通过override.aes参数替换图例的默认元素——用多字符缩写文本代替点，同时隐藏原来的点形状，这样用户就能直观地把缩写和对应的数据点关联起来。

如果需要更灵活地控制图例的位置、样式（比如同时显示全称和缩写），可以创建一个辅助数据框，手动添加图例元素：

library(tibble)
library(ggplot2)
library(ggrepel)

df <- tribble(
  ~x, ~y, ~name, ~initials,
  0, 0, "Hadley Wickam", "HW",
  0, 1, "Ross Ihaka", "RI",
  1, 0, "Robert Gentleman", "RG",
  1, 1, "Yihui Xie", "YX"
)

# 构建图例专用的数据框，指定图例的位置坐标
legend_df <- tibble(
  x = 1.5,                  # 图例的基准x坐标
  y = seq(1, 0, by = -0.3), # 每个图例项的y坐标
  initials = df$initials,
  name = df$name
)

ggplot(df, aes(x, y, label = initials)) +
  geom_point(size = 3) +
  geom_text_repel() +
  # 添加图例的点
  geom_point(data = legend_df, aes(x, y), size = 3) +
  # 添加缩写文本
  geom_text(data = legend_df, aes(x = x + 0.1, y = y, label = initials), hjust = 0) +
  # 添加全称文本（可选）
  geom_text(data = legend_df, aes(x = x + 0.3, y = y, label = name), hjust = 0, size = 3.5) +
  # 添加图例标题
  annotate("text", x = 1.5, y = 1.2, label = "Abbreviations", fontface = "bold") +
  # 调整x轴范围，确保图例完整显示
  xlim(c(0, 2))

这种方式完全自定义了图例的布局，你可以根据图表的实际情况调整坐标、文本大小和位置，适合需要个性化图例的场景。

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