我正在使用rgdal库创建一个地图,使用印度的形状文件,并能够使用下面的代码在印度地图上绘制数据点。但我正在努力在地图上给出地点/级别/城市名称。
以下代码用于从形状文件创建地图。
counties<-readOGR("India Map/IND_adm1.shp",layer="IND_adm1",verbose = TRUE, addCommentsToPolygons =TRUE)
以下代码用于在地图上绘制数据点。
ggplot() + geom_polygon(data=counties, aes(x=long, y=lat, group=group), fill="grey40",
colour="grey90", alpha=1)+
labs(x="", y="", title="Tweet counts")+ #labels
theme(axis.ticks.y = element_blank(),axis.text.y = element_blank(), # get rid of x ticks/text
axis.ticks.x = element_blank(),axis.text.x = element_blank(), # get rid of y ticks/text
plot.title = element_text(lineheight=.8, face="bold", vjust=1))+ # make title bold and add space
geom_point(aes(x=x, y=y, color=data_frame$`count(comment)`), data=data_frame, alpha=0.5, size=3, color="grey20")+# to get outline
geom_point(aes(x=x, y=y, color=data_frame$`count(comment)`), data=data_frame, alpha=0.5, size=2)+
scale_colour_gradientn("Tweet counts",
colours=c( "#f9f3c2","#660000"))+ # change color scale
coord_equal(ratio=1) # square plot to avoid the distortion
下面是使用上面的代码创建的地图图片,我想在其中添加城市/洲/地区的级别。
我浏览了文档并更改了下面的readOGR函数的各种参数,以便在地图上给出关卡,但仍然没有运气。
readOGR(dsn, layer, verbose = TRUE, p4s=NULL,
stringsAsFactors=default.stringsAsFactors(),
drop_unsupported_fields=FALSE, input_field_name_encoding=NULL,
pointDropZ=FALSE, dropNULLGeometries=TRUE,
useC=TRUE, disambiguateFIDs=FALSE, addCommentsToPolygons=TRUE)
任何帮助都会非常感谢!