SP_id和type两列
rowid<-rownames(data1) #获取rowname,用于我们后面合并构造key值,其值为0,1,2....10
data1$id列id,值为0-10
polydata换为数据框,polydata包括7列long,lat,order,hole...data=data_map, aes(x=long, y=lat, group=group,fill=type),colour="black",size=0.25)
image.png
image.png...join(country_poly,dataCountry1,by='id',type="full")
ggplot()+
geom_polygon(data=country_map, aes(x=long..., y=lat, group=group,fill=country),colour="black",size=0.25)
image.png