# show a plot of the storm paths
if (requireNamespace("ggplot2", quietly = TRUE)) {
library(ggplot2)
ggplot(storms) +
aes(x=long, y=lat, color=paste(year, name)) +
geom_path() +
guides(color='none') +
facet_wrap(~year)
}
storms
Run the code above in your browser using DataLab