图例显示多个图层（ggplot）

Question

我正在尝试在图例中显示geom_line和geom_point，但是我似乎无法显示geom_line。

graph <- ggplot(mar, aes(x=long, y=lat)) +  xlab("Longitude") + ylab("Latitude") + labs(size = "Distance from predicted \n to known Roman road (m)")
graph  + theme_light() + geom_point(aes(size=distance$NEAR_DIST)) +  geom_line(color="white", size=0.5)

这将生成一个带有geom_point的图形（点的大小基于与geom_line中的线和另一条线的距离），但我无法让geom_line出现在图例中。关于如何做到这一点的任何想法？

Answer 1

克雷格回答：

graph <- ggplot(mar, aes(x=long, y=lat)) + xlab("Longitude") + ylab("Latitude") + labs(size = "Distance from predicted \n to known Roman road (m)")

graph  + theme_dark() + geom_point(aes(size=distance$NEAR_DIST)) +  geom_line(aes(color = "LCP Roman Road"), size = 0.5) + scale_color_manual(name = "tt", values = "white")

通过美学指定颜色。