在geom_sf中的地图上添加区域名称

library(sf)
library(ggplot2)
library(dplyr)

map_data <- st_read("path/to/map_data.shp")

map_data$区域名称 <- c("区域1", "区域2", "区域3", ...)

ggplot() +
  geom_sf(data = map_data) +
  geom_text(data = map_data, aes(label = 区域名称), size = 3, nudge_y = 0.1)

ggplot() +
  geom_sf(data = map_data, fill = "lightblue", color = "black") +
  geom_text(data = map_data, aes(label = 区域名称), size = 3, nudge_y = 0.1)

print(ggplot() +
  geom_sf(data = map_data, fill = "lightblue", color = "black") +
  geom_text(data = map_data, aes(label = 区域名称), size = 3, nudge_y = 0.1))