library(ggplot2)
g <- ggplot(seals, aes(long, lat)) +
geom_vector(aes(dx = delta_long, dy = delta_lat), skip = 2)
g + scale_mag("Seals velocity")
g + scale_mag("Seals velocity", limits = c(0, 1))
Run the code above in your browser using DataLab