https://www.notion.so/16e294bf1a864d91b0b0ccf88cbf44e4#e6a39973c0a440ffb26ab87d23723591
library(raster)
library(sf)
china_map <- getData(
name = "GADM",
country = "CHN", # 中国的 ISO3 代码
level = 3, # 国家=0 省=1 市=2 县=3
type = "sf", # 返回数据类型为 sf 类型
path = "E:/Rdate/" # 保存到本地目录，以便复用
)
sf::st_crs(china_map) <- 4326
yunnan_map <- china_map[china_map$NAME_1 == "Yunnan" ,]
yunnan_map
ggplot()+
geom_sf(data = yunnan_map,color = "red",mapping = aes (fill = NL_NAME_3),show.legend = F,size = 0.5)+
labs(title = "2022年云南省地理区划图")
###############################
画的如上面显示的样子。
到这里不会了，我想所有的县全部用汉语标注出来，但是我找不到对应的X 和Y 值。是不是哪里出了问题。
恳请帮忙看看。
