如何使用ggplot在图例键下方插入图片/图形？

方法1：利用ggtext的markdown支持插入外部图片 #

这种方式适合插入本地或编码后的外部图片，通过修改图例标签为markdown格式实现图文结合。

1. 安装并加载依赖包：

install.packages(c("ggplot2", "ggtext"))
library(ggplot2)
library(ggtext)

2. 构造示例数据：

df <- data.frame(
  x = 1:3,
  y = 1:3,
  group = c("Group A", "Group B", "Group C")
)

3. 编写带图片的图例标签（替换为你的本地图片路径）：

labels <- c(
  "Group A<br><img src='your_icon_a.png' width='20' height='20'>",
  "Group B<br><img src='your_icon_b.png' width='20' height='20'>",
  "Group C<br><img src='your_icon_c.png' width='20' height='20'>"
)

4. 绘制图形并启用markdown渲染：

ggplot(df, aes(x, y, color = group)) +
  geom_point(size = 5) +
  scale_color_discrete(labels = labels) +
  theme(legend.text = element_markdown())

方法2：用grid包自定义矢量图形嵌入图例 #

如果需要插入自定义的矢量图形（比如方块、线条），可以通过修改ggplot的底层gtable实现。

1. 安装并加载依赖包：

install.packages(c("ggplot2", "grid", "gtable"))
library(ggplot2)
library(grid)
library(gtable)

2. 绘制基础ggplot图形：

p <- ggplot(df, aes(x, y, color = group)) +
  geom_point(size = 5) +
  scale_color_discrete()

3. 创建自定义小图形：

# 示例：分别创建红方块、斜线、蓝圆形的小图形
g1 <- grobTree(rectGrob(width = 0.8, height = 0.8, gp = gpar(fill = "red")))
g2 <- grobTree(linesGrob(x = c(0,1), y = c(0,1), gp = gpar(lwd = 2)))
g3 <- grobTree(circleGrob(r = 0.4, gp = gpar(fill = "blue")))

4. 修改图例布局并嵌入图形：

# 获取ggplot的底层gtable对象
gt <- ggplotGrob(p)
# 定位图例位置
leg_idx <- which(gt$layout$name == "guide-box")
leg <- gt$grobs[[leg_idx]]$grobs[[1]]

# 给图例添加行，用于放置图形
leg <- gtable_add_rows(leg, unit(0.5, "cm"), pos = seq(2, nrow(leg), by = 2))
# 将自定义图形插入到对应位置
leg <- gtable_add_grob(leg, list(g1, g2, g3), 
                       t = seq(3, nrow(leg), by = 2), 
                       l = leg$layout[leg$layout$name == "key-1-1",]$l)

# 替换原图例并绘制最终图形
gt$grobs[[leg_idx]]$grobs[[1]] <- leg
grid.draw(gt)

内容的提问来源于stack exchange，提问作者P.08