如何让gganimate中geom_segment的均值竖线平滑过渡无断裂？

我尝试为数据中每一年绘制带均值竖线的直方图，运行代码后生成的动画里，蓝色均值竖线过渡存在断裂，如何实现该竖线的平滑无断裂过渡？

原始代码与环境 #

代码 #

library(gganimate)
library(ggplot2)
library(dplyr)
data_speed <- readRDS("speed.RDS")
animated_histogram <- data_speed %>%
  ggplot(aes(x = fastestLapSpeed)) +
  geom_histogram(fill = "#ff1801") +
  geom_segment(aes(x = avg_speed, xend = avg_speed, y = 0, yend = Inf),
               color = "blue", size = 1, linetype = "") +
  labs(title = "Year: {frame_time}") +
  transition_time(year) +
  ease_aes('linear')

animate(animated_histogram, fps = 30, duration = 10, width = 500, height = 250)

依赖库版本 #

> packageVersion("gganimate")
[1] ‘1.0.8’
> packageVersion("ggplot2")
[1] ‘3.4.2’
> packageVersion("dplyr")
[1] ‘1.1.2’

问题原因 #

原始代码中，geom_segment使用的是原始数据中每条记录附带的年份均值——同一年份的所有记录共享同一个均值。当transition_time在不同年份间过渡时，均值会直接从某一年的数值跳转到下一年的数值，没有中间插值过程，导致竖线出现断裂式跳变。

解决方案 #

提前按年份计算平均速度，生成仅包含年份和对应均值的独立数据集，让gganimate能在年份间对均值进行线性插值，实现平滑过渡。同时推荐用geom_vline替代geom_segment，更适合绘制垂直参考线。

修改后的代码 #

library(gganimate)
library(ggplot2)
library(dplyr)

# 读取数据并预计算每年的平均速度
data_speed <- readRDS("speed.RDS")
yearly_avg <- data_speed %>%
  group_by(year) %>%
  summarise(avg_speed = mean(fastestLapSpeed, na.rm = TRUE)) %>%
  ungroup()

# 构建动画
animated_histogram <- ggplot() +
  # 绘制各年份的直方图
  geom_histogram(data = data_speed, aes(x = fastestLapSpeed), fill = "#ff1801") +
  # 使用预计算的均值数据绘制平滑过渡的竖线
  geom_vline(data = yearly_avg, aes(xintercept = avg_speed, frame = year),
             color = "blue", size = 1) +
  labs(title = "Year: {frame_time}") +
  transition_time(year) +
  ease_aes('linear')

# 生成动画
animate(animated_histogram, fps = 30, duration = 10, width = 500, height = 250)

关键修改说明 #

1. 预计算年份均值：yearly_avg数据集仅保留每个年份对应的唯一均值，为插值提供清晰的锚点
2. 绑定均值数据绘制竖线：geom_vline使用独立的均值数据集，并通过frame = year明确关联年份变量，让gganimate自动在年份间对均值进行线性插值
3. 移除无效参数：去掉了原代码中geom_segment里无效的linetype = ""参数，确保线条正常显示

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