library(metR)
library(data.table)
library(ggplot2)
data(seals)
ggplot(seals, aes(long, lat)) +
geom_arrow(aes(dx = delta_long, dy = delta_lat)) +
scale_mag(max_size = 10)
#> Scale for 'mag' is already present. Adding another scale for 'mag', which
#> will replace the existing scale.
Created on 2020-02-13 by the reprex package (v0.3.0)