R语言ggplot2如何用单条geom_image为所有分组折线末端添加对应图片

现有按分组记录累计得分的数据框，示例结构如下（原代码中image向量存在语法错误，已修正为R合法写法）：

name <- c("a", "a", "b", "b", "b")
game <- c(1, 2, 1, 2, 3)
pts <- c(3, 6, 1, 6, 7) 
cum_pts <- c(3, 9, 1, 7, 14)
image <- c("image1.png", "image1.png", "image2.png", "image2.png", "image2.png")

df <- data.frame(name, game, pts, cum_pts, image)

需求为绘制按name字段分组的折线图，将每个分组对应的关联图片放置在对应折线的最末端。此前通过逐组过滤数据、为每个分组单独编写geom_image语句实现效果，参考代码如下：

df %>%
  ggplot(aes(x = game, y = cum_pts, group = name)) +
  geom_line() +
  geom_image(data = filter(df, name == "a"), aes(x = max(game), y = max(cum_pts), image = pics), size = 0.08) +
  geom_image(data = filter(df, name == "b"), aes(x = max(game), y = max(cum_pts), image = pics), size = 0.08)

代码运行效果符合预期：

当数据集中name分组数量较多时，逐组编写geom_image的方式效率极低，需要通过单条geom_image语句实现所有分组折线末端的图片放置。

核心逻辑是先按name分组，筛选出每个分组下game值最大（即折线最末端）的行作为geom_image的输入数据源，无需逐组过滤写重复代码。
首先加载依赖包：

library(tidyverse)
library(ggimage)

方法1：提前预处理终点数据 #

提前生成每个分组的折线终点数据集，代码可读性更高：

# 提取每个分组的折线终点数据：保留每个name下game值最大的行，自带对应cum_pts和image映射值
df_end <- df %>%
  group_by(name) %>%
  slice_max(game, n = 1) %>%
  ungroup()

# 单条geom_image完成所有分组的图片放置
df %>%
  ggplot(aes(x = game, y = cum_pts, group = name, color = name)) +
  geom_line(linewidth = 1) +
  geom_image(data = df_end, 
             aes(x = game, y = cum_pts, image = image), 
             size = 0.08) +
  # 可选：给x轴右侧增加边距，避免图片被绘图边界截断
  scale_x_continuous(expand = expansion(mult = c(0.05, 0.2)))

方法2：geom_image内联数据处理 #

无需提前生成中间数据集，直接在geom_image的data参数中完成分组筛选，代码更简洁：

df %>%
  ggplot(aes(x = game, y = cum_pts, group = name, color = name)) +
  geom_line(linewidth = 1) +
  geom_image(data = . %>% group_by(name) %>% slice_max(game, n = 1),
             aes(x = game, y = cum_pts, image = image),
             size = 0.08) +
  scale_x_continuous(expand = expansion(mult = c(0.05, 0.2)))

注意：image列需直接存储每个分组对应图片的本地路径或可访问URL，无需额外定义中间变量存储图片地址。

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