需要在澳大利亚各州的中心添加各州的缩写 我有这个R脚本，它显示了带有州边界的澳大利亚地图，我需要在每个州中间加上缩写的州名。你知道怎么做吗 library(RColorBrewer)

aus_b1
nrow(tidy(aus_b1))
aus_b1 <- tidy(ms_simplify(aus_b1))
nrow(aus_b1)
head(aus_b1)

aussie <- ggplot(data = aus_b1, aes(x = long, y = lat, group = group)) + 
geom_polygon(aes(fill = id)) + 
coord_quickmap() + theme_map() +
guides(fill = F) + 
scale_fill_manual(values = brewer.pal(n = 11, name = "BrBG"))

aussie