修复rasterVis :: vectorplot中的文本位置

如何解决修复rasterVis :: vectorplot中的文本位置

我正在尝试固定rasterVis::vectorplot中某些文本的位置，以便即使更改png文件的宽度和高度也可以将其保持在同一位置。

我尝试使用par的margin参数，但是没有运气。

这是到目前为止我得到的一个例子：

#Some raster data
proj <- CRS('+proj=longlat +datum=wgs84')
df <- expand.grid(x = seq(-2,2,.01),y = seq(-2,.01))
    
df$z <- with(df,(3*x^2 + y)*exp(-x^2-y^2))
r <- rasterFromXYZ(df,crs=proj)
        
#[A]
png("test01.png",width = 918,height = 850,res=100)
vectorplot(r,par.settings=list(layout.widths = list(axis.key.padding = 3)),narrows = 500,length=0.1,lwd.arrows=0.4)
grid.text(substr(R.version.string,1,15),rot=90,x=0.92,y=0.14,gp = gpar(fontsize = 12,fontface = "italic"))
dev.off()

这是[A]的输出。那就是我想要的：

现在，更改宽度和高度：

##[B]
png("test02.png",width = 1718,fontface = "italic"))
dev.off()

这是[B]的输出：

您可以看到文本不在同一位置。 （我是rasterVis库的新手。）

解决方法

带有latticeExtra的{​​{1}}软件包中的layer function将为您提供帮助。 panel.text函数在面板区域内打印，因此您必须在设置列表中添加选项panel.text才能在该区域之外打印：

clip = list(panel = FALSE)