Анимация с использованием gifski в r

Question

У меня есть следующий фрейм данных с координатами полетов с 15-минутными интервалами.

flight_no     datetime              lon   lat
   <chr>       <dttm>              <dbl> <dbl>
 1 AAA         2019-03-04 06:30:00 -84.9  34.7
 2 AAA         2019-03-04 06:45:00 -85.4  36.0
 3 AAA         2019-03-04 07:00:00 -86.0  37.4
 4 AAA         2019-03-04 07:15:00 -86.5  38.7
 5 AAA         2019-03-04 07:30:00 -87.1  40.0
 6 AAA         2019-03-04 07:45:00 -87.6  41.4
 7 AAA         2019-03-04 09:00:00 -84.9  34.7
 8 AAA         2019-03-04 09:15:00 -85.4  36.0
 9 BBB         2019-03-04 07:00:00 -81.0  29.2
10 BBB         2019-03-04 07:15:00 -82.5  24.2

Я хочу создать простую анимацию с местоположением полетов на карте. Я хочу изобразить все полеты в определенный момент времени и, возможно, изобразить их разными цветами. Я использовал пакет gifski следующим образом.

bbox <- c(-130, 20, -60, 50)
map <- get_map(location = bbox, source = "osm")

```{r, animation.hook='gifski', out.width="100%", fig.width=4, fig.height=2}
for (date in df$datetime){
    ggplot(data=df, aes(x=lat, y=lon) +
         geom_point(alpha=0.1)
} 
```

Я не уверен, что делаю не так.