所有多边形的颜色无法在ggplot2中正确显示（重叠）

Question

我尝试使用.shp文件使用ggplot2进行映射。虽然我得到了地图，但所有多边形的颜色都无法正确显示。一些多边形的颜色被其他多边形掩埋或覆盖。 我使用以下R代码来创建地图：

library(ggplot2)
library(ggthemes)
library(rgdal)
library(scales)
library(ggmap)
library(dplyr)
library(ggsn)
library(raster)
owd=getwd()
sf<-readOGR(dsn=owd,layer="China")
sf@data$id <- rownames(sf@data)
sf.points <- fortify(sf,region='id') 
mapa.df <- left_join(sf.points,sf@data, by="id")
ggplot(mapa.df,aes(x=long, y=lat)) + coord_equal() + geom_polygon(colour="transparent", aes(group=group,fill=gridcode),
           size=0.15,alpha=0.9)+theme_nothing()

下面的代码是由代码创建的：覆盖了一些多边形的颜色。

第二张图是原始地图：正确绘制了多边形的所有颜色。

希望有人可以帮助我。谢谢。