... mutate(id = rnorm(n = n())) %>% ggplot(aes(geometry = geometry, fill = id)) + geom_sf(show.legend = FALSE) + geom_sf_text(aes(label = name), size = 2) + ...
確定! 回上一頁