gganimate：具有静态线的状态之间的转换

Question

我正在尝试使用以下代码创建一个按小时计算的道路网络量的图片。

require(sf)
require(data.table)
require(ggplot2)
require(RColorBrewer)
library(readr)
library(ggplot2)
library(gganimate)
library(scales)
library(dplyr)

atl_dt <- fread("Documents/all_links.csv", stringsAsFactors = F, header = T)
all_links1 <- st_as_sf(atl_dt, wkt="WKT")
st_crs(all_links1) <- 5070


test <- ggplot() + 
  geom_sf(data = all_links1, aes(color=link_volume)) + 
  scale_color_distiller(palette = "OrRd", direction = 1) +
  ggtitle("hour-of-day:{frame_time}") +
  transition_time(as.integer(departure_hour)) +
  ease_aes("linear") +
  enter_fade() +
  exit_fade()

# save as a GIF
animate(test, fps = 10, width = 750, height = 450)
anim_save("Documents/test1.gif")

这给了我以下gif。如您所见，道路连接似乎在随机移动，然后每小时重新修补，这使得gif变得非常模糊且难以分析。如何避免这种情况，只显示链接量的变化（使用颜色渐变），而不会使链接每小时移动一次？

here中的全部数据。