如何为geom_point地理地图添加参考表或图例？

Question

我正在生成一张非常类似于此]的地图，以显示城市发生的频率。如何为此地图创建图例或关键字，以便我可以看到圆圈的大小以数字形式表示？

这是我的代码：

myLocation <- c(-124, 32, -66, 42)

myMap <- get_map(location = myLocation, source = "stamen",
                 maptype = "toner", crop = FALSE, zoom = 4)

ggmap(myMap) +
geom_point(aes(x = lon, y = lat), data = csr.Ax1,
           col = "orange", alpha = 0.4, size = csr.Ax1$freq*.25) +
scale_size_continuous(range = range(csr.Ax1$freq), guide = "legend") +
ggtitle("CSR Active Candidates") +
legend()

编辑：已解决！

解决方案是将geom_point参数中的size = csr.Ax1 $ freq放入aes（）参数中。

Answer 1

解决方案是将geom_point参数中的size = csr.Ax1 $ freq放入aes（）参数中。