创建沿“带有事件时间线”的路线移动的车辆动画

Question

这是关于如何创建沿路线从 A 到 B 的车辆移动动画的后续问题？. 我可以学习如何为沿路线从 A 到 B 移动的车辆设置动画。谢谢您的帮助！

但是是否可以通过添加时间线（带有显示瞬时时间和相应事件的移动标记）来制作一个自我解释的视频（对于假设的客户）。 时间线示例

例如 - 这是一个示例事件序列 -

library(sf)
library(dplyr)
library(tidygeocoder)
library(osrm)
library(lubridate)

# adresses
adresses <- c("285 Fulton St, New York, NY 10007", # One World Trade Center
              "11 Madison Ave, New York, NY 10010",
              "Rockefeller Center, 45 Rockefeller Plaza, New York, NY 10111")

# geocoded addresses
geocoded_addresses <- tidygeocoder::geo(adresses, method = "osm") %>%
  st_as_sf(coords = c("long", "lat"), crs = 4326)

# reference time
t <- as_datetime("2021-08-23 8:00:00", tz = "America/New_York")

timeline <- tibble(
  time = c(t, t+minutes(10), t+minutes(12), NA, t+minutes(25), t+minutes(30), t+minutes(32), NA, t+minutes(38), NA),
  events = c("Wait", "Ride request", "Start trip", "End trip", "Ride request", "Start trip", "Ride request", "End trip", "Start trip", "End trip")
)