R图删除右边距

Question

我有一个返回情节的函数：

NDVI_Result = function(x,y){
output = raster::overlay(raster::raster(base::normalizePath(x)), 
raster::raster(base::normalizePath(y)), fun = NDVI)
graphics::par(bg=NA,mar=c(0,0,0,0),oma=c(0,0,0,0))
raster::plot(output,axes=FALSE,box=TRUE,legend=FALSE, frame=FALSE)

将其导出为png后，我得到了这个结果：

如何删除结果的右边距以便能够处理仅包含该框的图像？

Answer 1

您可以使用image代替plot

library(raster)
r <- raster(system.file("external/test.grd", package="raster"))
par(bg=NA,mar=c(0,0,0,0),oma=c(0,0,0,0))
image(r, axes=FALSE)