ggplot2创建侧面和底部图例

Question

我正试图在右侧和底部有一个传奇的情节。两者都在地图之外。我已经尝试了一些建议，但要么是传说，要么都没有传说。

library(ggthemes)
library(ggmap)
library(ggplot2)

d <- data.frame(McMap)
County_Mayo_Map <- get_map("MAP", zoom=9)

p <- ggmap(County_Mayo_Map)
p <- p + geom_point(data=d, aes(lat, lon)) +
geom_point(stat = "identity") +
geom_point(data = d, aes(color = Name), size = 5) +
scale_shape_manual(values=df$x) +
geom_point(data = d, aes(shape = Town), size = 4) +
labs(caption = ("SPM 8-19-17")) +
labs(title = "Title", subtitle = "Subtitle") +
ylab("Latitude") +
xlab("Longitude") +
coord_fixed(ratio = 1/1) +
theme(legend.background = element_rect(
  fill ="lemonchiffon",
  colour = "black",
  size =1)) +
theme_solarized()