我正在处理多个sf几何图形,希望以点、线和正方形(用于多边形)的形式显示图例。然而,geom_sf图例将我的几何特征组合在一起(即组合线和点),如下所示:
library(ggplot2)
library(sf)
poly1 <- cbind(lon = c(5, 6, 7, 5), lat = c(52, 53, 51, 52))
poly <- st_sf(st_sfc(st_polygon(list(poly1))))
line <- st_sf(st_sfc(list(st_linestring(cbind(lon = c(5.5, 4.5), lat = c(53.5, 54.5))))))
point <- st_sf(st_sfc(st_point(cbind(lon = 5.5, lat = 52.7))))
ggplot() +
geom_sf(data = poly, aes(fill = "A")) +
geom_sf(data = point, aes(colour = "B"), show.legend = "point") +
geom_sf(data = line, aes(colour = "C"), show.legend = "line") +
scale_fill_manual(values = c("A" = "yellow")) +
scale_colour_manual(values = c("B" = "pink", "C" = "purple")) +
theme_minimal()
我希望在下面的图像上获得三个单独的图例,一个黄色正方形,一个粉色点和一条紫色线。当我绘制单独的几何图形时才会出现这种情况,而不是三者的组合。
我查阅了类似的主题,但没有涉及点几何,即https://github.com/tidyverse/ggplot2/issues/2460。
有人能提供任何见解吗?