在rasterVis

Question

我有一个栅格r，一个多边形shapefile regions和一个点形文件cities。我需要将所有三个绘制成一个地图布局。除此之外，我需要标记点文件，其中包含城市名称（cities$city$Town.Name）及其温度和降水值（指定为cities$labels）。所以我在包'raster'和'rasterVis'中使用了以下代码。

p1<-levelplot(regions.r,par.settings=mytheme,scales=list(draw=FALSE),xlab="",ylab="",margin=F)+
  layer(sp.polygons(regions))+
          layer(sp.points(cities,pch=20,cex=1.5,col="black"))
p1+
  layer(sp.text(coordinates(cities), txt = cities$city$Town.Name, pos = 3,col="black",font=list(face="bold"),cex=0.8))+
  layer(sp.text(coordinates(cities),txt = cities$label,
                pos = 1,cex=0.6,col="black"))#Add shapefile labels

当区域分散的城市分布时，这种方法很好（见下图）。 但是，如果城市集中在一个部分，我会遇到标签重叠（见下图）。有没有办法避免标签重叠？