Как преобразовать квадратную легенду в легенду sf

Question

Как заменить легенду квадратного формата в графике sf plot!Воспроизводимый код:

data(meuse, package = "sp")

meuse_sf = st_as_sf(meuse, coords = c("x", "y"), crs = 28992, agr = "constant")
ggplot() + geom_sf(data = meuse_sf, aes(colour = landuse))

Answer 1

Вы должны изменить его с помощью аргумента show.legend.

library(tidyverse)
library(sf)

data(meuse, package = "sp")

meuse_sf = st_as_sf(meuse, 
                    coords = c("x", "y"), 
                    crs = 28992, 
                    agr = "constant")

ggplot() + 
  geom_sf(data = meuse_sf, aes(colour = landuse), show.legend = "point")