如何在R中使用gganimate实现geom_path绘图的平滑动画

问题背景 #

使用gganimate制作随时间变化的depth-temp线条动画时，帧间线条直接跳跃，无法平滑过渡，尝试shadow_wake()和enter_fade()无效。

核心原因 #

原数据仅包含离散的10个时间点，gganimate只能在这10个离散状态间直接切换，没有中间过渡的状态数据，导致动画跳跃。

解决方案：插值补全连续时间点 #

通过对时间和温度值进行线性插值，生成大量中间时间点的完整数据，让帧与帧之间的线条变化足够细微，实现平滑过渡。

步骤1：加载依赖包并准备插值数据 #

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

# 原数据
x <- c(0, 10, 19, 27, 35, 41, 48, 52, 55, 56)
test.data <- data.frame(
  depth = rep(seq(1, 10), 10),
  time = rep(1:10, each = 10),
  temp = rep(x, 10) + rep(0:9, each = length(x))
)

# 插值生成连续时间点数据
interpolated_data <- test.data %>%
  group_by(depth) %>%
  # 把1-10的时间区间拆分为100个连续点（可根据需求调整数量）
  complete(time = seq(min(time), max(time), length.out = 100)) %>%
  # 对每个depth的temp值进行线性插值
  mutate(temp = approx(time, temp, xout = time)$y) %>%
  ungroup()

步骤2：制作平滑动画 #

# 构建基础绘图
plot.for.gif <- interpolated_data %>%
  ggplot(aes(x = temp, y = depth, group = time)) +
  ylim(10, 0) +
  labs(
    y = "Depth (km)",
    x = "Temp (C)",
    color = "Time (Ma)",
    subtitle = "Time (Ma): {frame_time}"
  ) +
  geom_path(aes(color = time))

# 添加动画逻辑并渲染
plot.animation <- plot.for.gif +
  transition_time(time) +
  shadow_mark(past = TRUE, future = FALSE)

animate(plot.animation, height = 1400, width = 800, fps = 10, duration = 15, res = 150)

说明 #

• length.out = 100：控制时间点的密度，值越大过渡越平滑，同时渲染时间会变长。
• approx()函数实现线性插值，保证temp值随时间连续变化。
• 插值后每个中间时间点都有完整的depth-temp数据，gganimate切换帧时线条变化自然，不再出现跳跃。

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