r gganimate：transition_reveal（更改标题）

Question

我想使用 gganimate 创建一个 transition_reveal 动画，其中标题沿着当前显示的迭代变化。因此，开始时的标题将是“日期：2019-01-01”，然后逐渐适应动画并以显示“日期：2019-01-20”结束。

a <- seq(1,20,1)
b <- seq(1,40,2)
c <- seq(as.Date("2019-01-01"), as.Date("2019-01-20"), by="days")
db <- cbind(a,b,c) %>% as.data.frame()

p <- ggplot(db, aes(x = a, y = b)) +
  geom_path() +
  labs(title = "Date: {frame_time}") +
  transition_reveal(c)

animate(p, renderer = gifski_renderer(loop = FALSE), nframes = 90, fps = 30, height = 600, width = 1100, start_pause = 0)

目前，我收到以下错误：

50: object 'fame_time' not found