如何在R中使用ggplot根据属性对GeoJSON多边形进行不同的着色？

我正在尝试使用ggpplot在R中的谷歌地图上绘制一个城市的步道，我已经成功地完成了这项工作，但是，我想根据属性“trail_class”为步道着色，并添加一个图例来显示这些颜色。我甚至不知道如何开始这样做。我该怎么做？以下是我迄今为止的代码（当然省略了API密钥和文件路径）：

库（geojsonio）
图书馆（地图）
图书馆（rgdal）
图书馆（地图工具）
图书馆（ggmap）
图书馆（RgoogleMaps）
图书馆（sp）
图书馆（绿色）
轨迹形状
library(geojsonio)
library(maps)
library(rgdal)
library(maptools)
library(ggmap)
library(RgoogleMaps)
library(sp)
library(viridis)

trail_shapes <- geojson_read("path to the GeoJSON file", what = "sp")
trail_shapes_df <- fortify(trail_shapes)

register_google(key = "my API key")
map <- get_googlemap(center = c(lon = -76.54, lat = 44.29), zoom = 12, maptype = "roadmap")
map <- ggmap(map) + ggtitle("Kingston Trails")
print(map + geom_polygon(aes(x = long, y = lat, group = group), data = trail_shapes_df, colour = "purple", fill = NA))