如何使用key_glyph修改ggplot2中geom_text的图例符号？

原代码基于ggplot2的geom_text绘制了mtcars数据集的文本散点图，数据按气缸数（cyl）区分颜色，但图例默认显示字母'a'，现需通过key_glyph将图例中的'a'替换为其他符号（如字母、算术符号）。

原代码：

library(ggplot2)
p <- ggplot(mtcars, aes(wt, mpg, label = rownames(mtcars)))
p + geom_text(aes(colour = factor(cyl)))

原效果：图表x轴为车重（wt），y轴为每加仑英里数（mpg），每个数据点用车型名称标注，图例中各分组的符号默认显示为'a'。

核心是给geom_text的key_glyph参数传入自定义函数，让图例绘制指定符号而非默认的'a'，以下两种方法均可实现：

方法1：完全自定义图例符号函数 #

比如要把图例符号换成算术符号#，代码示例：

library(ggplot2)
library(grid)  # 需用到textGrob生成文本图形

# 定义自定义图例符号的函数
custom_key <- function(data, params, size) {
  textGrob(
    label = "#",  # 此处替换为你需要的符号/字母
    gp = gpar(
      col = data$colour,  # 继承分组对应的颜色
      fontsize = size * .pt  # 匹配图例尺寸
    )
  )
}

# 生成图表
p <- ggplot(mtcars, aes(wt, mpg, label = rownames(mtcars)))
p + geom_text(aes(colour = factor(cyl)), key_glyph = custom_key)

如果要换成字母B，只需将label = "#"修改为label = "B"即可。

方法2：基于内置函数快速修改 #

利用ggplot2内置的draw_key_text函数，直接修改图例显示的文本内容：

library(ggplot2)

p <- ggplot(mtcars, aes(wt, mpg, label = rownames(mtcars)))
p + geom_text(
  aes(colour = factor(cyl)),
  key_glyph = function(data, params, size) {
    draw_key_text(data, params, size, label = "X")  # 将X替换为目标符号
  }
)

注意事项 #

• 自定义的key_glyph函数需要返回一个grid图形对象（如textGrob），才能被ggplot2识别为图例元素。
• 通过data$colour可以获取对应分组的颜色，保证图例与主图的颜色映射一致。

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