如何在R中绘制多个纵向轨迹时只标记一次？

library(ggplot2)
library(dplyr)

data <- data.frame(
  track_id = c(rep("Track 1", 5), rep("Track 2", 5)),
  time = rep(1:5, 2),
  value = c(2, 4, 3, 5, 1, 5, 3, 2, 4, 1)
)

ggplot(data, aes(x = time, y = value, color = track_id)) +
  geom_line()

ggplot(data, aes(x = time, y = value, color = track_id)) +
  geom_line() +
  geom_text(
    data = data %>% group_by(track_id) %>% filter(time == min(time)),
    aes(label = track_id),
    vjust = -1
  )