如何用gganimate实现动画中点的多帧停留及淡入淡出效果？

方法二：用transition_time+透明度映射，自定义淡入淡出曲线 #

如果你想更灵活地控制透明度的变化（比如非线性淡入），可以用这种方法，不用额外加列，直接在动画过程中计算每个点的透明度。

# 先定义一个计算透明度的函数：距离事件时间越近，透明度越高
calc_alpha <- function(current_time, event_time, window_hours = 3) {
  time_diff <- abs(difftime(current_time, event_time, units = "hours"))
  # 超出3小时窗口就完全透明，否则线性降低透明度
  ifelse(time_diff >= window_hours, 0, 1 - time_diff/window_hours)
}

# 绘制动画
ggplot(df) + 
  aes(x = long, y = lat, color = factor(event),
      # 用after_stat在动画运行时计算每个点的透明度
      alpha = after_stat(calc_alpha(frame_time, datetime))) + 
  geom_point(size = 2) +
  # 按时间推进动画
  transition_time(datetime) +
  # 确保透明度范围是0到1
  scale_alpha_continuous(range = c(0, 1)) +
  labs(title = "当前时间: {frame_time}") +
  theme_minimal()

这个方法的优势：

• 不用预处理数据，代码更简洁。
• 可以修改calc_alpha函数，实现比如先快速淡入、再缓慢淡出的非线性效果，完全自定义。

两种方法都能解决你的问题，选哪个看你对灵活性的需求啦～

内容的提问来源于stack exchange，提问作者agenis - code en bois