如何在R中的shapefile上绘制不同的区名？

install.packages("sf")
install.packages("ggplot2")
install.packages("ggtext")

library(sf)
library(ggplot2)
library(ggtext)

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

ggplot() +
  geom_sf(data = shapefile) +
  geom_sf_label(data = shapefile, aes(label = district_name), size = 3, nudge_y = 0.01) +
  theme_void() +
  theme(plot.margin = margin(0, 0, 0, 0)) +
  labs(title = "不同区名地图", subtitle = "使用R绘制") +
  theme(plot.title = element_text(hjust = 0.5, size = 14, face = "bold")) +
  theme(plot.subtitle = element_text(hjust = 0.5, size = 12))