如何在ggplot的geom_line末尾添加单个数据点？

当然可以实现，你只需要在ggplot中分别用geom_line()绘制完整线条，再用geom_point()单独定位绘制目标点即可，以下是对应你给出的base R代码的等效实现：

单组数据示例 #

首先构造示例数据，再按ggplot的要求整理数据结构：

# 构造示例数据
set.seed(123)
times <- sample(1:20, 15)
cols <- "blue" # 对应你代码中的cols[i]

# 整理线条所需的完整数据
line_data <- data.frame(
  x = sort(times),
  y = seq_along(times)
)

# 提取需要单独绘制的末尾点数据
point_data <- data.frame(
  x = max(times),
  y = length(times)
)

接下来是绘图代码：

library(ggplot2)

ggplot() +
  # 绘制线条，参数对应base R的lwd和col
  geom_line(data = line_data, aes(x = x, y = y), color = cols, linewidth = 1) +
  # 仅绘制目标点，参数对应base R的pch和col
  geom_point(data = point_data, aes(x = x, y = y), color = cols, shape = 16)

多组数据（对应循环场景）示例 #

如果你是像base R代码那样循环绘制多组线条和点，可以把数据整理成分组格式：

# 构造多组示例数据
set.seed(123)
times_list <- list(sample(1:20,15), sample(1:20,12))
cols <- c("blue", "red")

# 整理多组线条数据
line_data_multi <- do.call(rbind, lapply(seq_along(times_list), function(i) {
  data.frame(
    x = sort(times_list[[i]]),
    y = seq_along(times_list[[i]]),
    group = i
  )
}))

# 整理多组末尾点数据
point_data_multi <- do.call(rbind, lapply(seq_along(times_list), function(i) {
  data.frame(
    x = max(times_list[[i]]),
    y = length(times_list[[i]]),
    group = i
  )
}))

多组数据的绘图代码：

ggplot() +
  geom_line(data = line_data_multi, aes(x = x, y = y, color = factor(group)), linewidth = 1) +
  geom_point(data = point_data_multi, aes(x = x, y = y, color = factor(group)), shape = 16) +
  # 手动指定每组颜色
  scale_color_manual(values = cols)

核心思路是：用完整数据集绘制线条，用仅包含目标点的小数据集绘制单个点，通过data参数分别给geom_line()和geom_point()传递对应数据，就能精准控制点的位置。

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