使用 geom_sf 时如何更改图例形状？

Question

我正在使用geom_sf 和ggplot 绘制点，并且想更改点的形状。我可以在地图上更改它们，但图例从不反映点的形状，即使使用override.aes。

我不知道是我遗漏了什么还是这是一个错误。我在 Tidyverse 问题跟踪器中追踪了类似的问题，this one 非常相似。但是"resolved" 的问题似乎都没有解决我的问题。

这是一个示例，显示了ggplot 如何无法将形状传播到图例。

library(sf)
library(ggplot2)

cities <- tibble::tribble(
  ~ lon,    ~ lat,    ~ name,      ~ pop,
  5.121420, 52.09074, "Utrecht",   311367,
  6.566502, 53.21938, "Groningen", 189991,
  4.895168, 52.37022, "Amsterdam", 779808 
) %>% sf::st_as_sf(coords = c("lon", "lat"), crs = 4326)

lines_sfc <- sf::st_sfc(list(
  sf::st_linestring(rbind(cities$geometry[[1]], cities$geometry[[2]])),
  sf::st_linestring(rbind(cities$geometry[[2]], cities$geometry[[3]]))
))

lines <- sf::st_sf(
  id = 1:2,
  size = c(10,50),
  geometry = lines_sfc,
  crs = 4326
)

ggplot(cities) +
  geom_sf(aes(shape = name))

ggplot(cities) + 
  geom_sf(aes(shape = name)) +
  scale_shape_manual(values = c(1:3),
                     guide = guide_legend(
                       override.aes = list(shape = c(1:3))))

我希望图例条目具有与地图相同的形状，但我得到的是空方块。

Answer 1

ggplot() + 
  geom_sf(data = cities, aes(shape = name), show.legend = "point") +
  scale_shape_manual(values = c(1, 2, 3))