不带边框导出rasterVis图

Question

我正试图将光栅从rasterViz包导出为jpg或png。我正在努力：

• 完全修剪白色边框
• 保持NAs的透明度

迄今为止：

library(raster)
library(rasterVis)

# Toy Data
m <-  matrix(seq(0,100,length.out=15000),150,100)
r <- raster(m, xmn=0,ymn=0,xmx=nrow(m),ymx=ncol(m))

jpeg(file = "test.jpg", bg = "transparent", height=nrow(r), width=ncol(r))

levelplot(t(r), contour=T, margin=F, scales = list(draw=FALSE), colorkey=NULL,
 par.settings = list(axis.line = list(line=0), mar=c(0,0,0,0), omi=c(0,0,0,0), 
                          xaxt='n', yaxt='n', bg='transparent'))
dev.off()

...still有一个白色边框，透明度不起作用(至少对边框是这样)。我也有点搞不懂是否需要把光栅转到情节中去。

对于上下文，我需要保持高宽比，并准确地修剪到扩展，以便我可以使用图像作为地图瓦片在其他地方。手工后处理是不可行的。

Answer 1

只有巴布亚新几内亚()支持透明的背景。

png(file = "test.png", bg = "transparent", height=nrow(r), width=ncol(r))

png支持透明背景:使用bg =“透明”。(并非所有PNG查看器都以透明的方式呈现文件。)在类型= "Xlib“变体中使用透明性时，使用非常浅的灰色作为背景，如果在绘图中使用，则显示为透明。这允许使用不透明的白色，如示例中所示。类型= "cairo“、类型=”cairo“和类型=”石英“变体允许半透明颜色，包括在透明或半透明背景上。