Animation 随时间飞行轨迹

Question

我有以下数据集

flight_num    takeoff_time         land_time            origin_lat    origin_lon    dest_lat    dest_lon
AAA           2019-03-04 06:18:00  2019-03-04 07:52:00  -84.42778     33.63667      -87.90667   41.9744

我想以 15 分钟的时间间隔做一个简单的飞行路径 animation。 我想将起飞时间视为开始时间，并以 15 分钟的间隔获取航班的位置（假设起点和目的地之间的线段可以等分）。

为此，我做了以下

#calculated the time difference between the take-off and landing in minutes and the number of frames
df %>% mutate(diff = difftime(land_time, takeoff_time, units='mins'),
no_frames = diff/15)

并且还想出了如何将飞行路径分割成多个部分。 但我不确定如何进行。