r - rasterVis 中点数据标签的重叠

Question

我有一个光栅r、一个多边形 shapefileregions和一个点 shapefile 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

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