r - 图像光栅R包 - 光栅打印没有背景和边框和图例

Question

我正在使用栅格函数，如下所示。我的最后一行产生一些输出。该输出中有一行内容为 dimensions : 240, 320, 76800 (nrow, ncol, ncell)。我想重新打印该图像，但只说前 200 行和前 300 列。我怎样才能做到这一点？下面倒数第二行绘制了整个图像

f <- "pictures/image1-1421787394.jpeg"
f
r <- raster(f)
plot(r);
r

================================更新1

我做了 png(filename = '~/x.png');par(mar=rep(0, 4), xpd = TRUE, oma=rep(0, 4),bty='n' )；绘图(r，xlim = c(0,200)，ylim = c(0,200)，图例= FALSE，轴= FALSE); dev.off() 保存裁剪后的图像。我能够摆脱图例、斧头和黑匣子。但问题是保存的图像包含的不仅仅是裁剪的部分 - 例如图像周围的白色部分。我只想保存原始图像的裁剪部分(保持图像大小 200*200 像素)。请告诉我该怎么做？

此外，我如何将与上述裁剪部分相对应的红色方 block 添加到原始图像中？我的意思是我想在原始图像的顶部获得一个红色正方形(仅边缘)，然后将其(原始图像+正方形)保存为新图像。

我怎样才能做到这一点？

更新2++++++++++++++++++++++++++++++++++++++++++++++++++

添加可重复的示例来展示我所说的白色背景的含义

下面的最后一行绘制了裁剪后的图像。我希望该图像为 100*100，因为我的 xlim 和 ylim 为 100。但我看到白色背景，如下例所示。 (你看不到背景。但是如果你在你的机器上运行代码并打开图像，你就会看到它)

library(raster)
r <- raster(nrow=240, ncol=320)
values(r) <- 1:ncell(r)
plot(r)
plot(r,xlim=c(0,100),ylim=c(0,100),legend=FALSE,axes=FALSE,frame.plot=F)

Answer 1

您可以通过设置xlim和ylim来做到这一点:

plot(r,xlim=c(0,299),ylim=c(0,199))

[更新]要摆脱白色背景，您可以尝试 useRaster=F 参数:

plot(r,xlim=c(0,100),ylim=c(0,100),legend=FALSE,axes=FALSE,frame.plot=F,useRaster=F)