R光栅图裁剪plotRGB图像

Question

我有如下的 R 代码。第一个 plot() 和第一个 plotRGB() 命令工作正常。我想拆分图像

在第二个代码块中 plot() 有效，但 plotRGB() 失败。在第二种情况下如何使 plotRGB 工作？我的最终目标是获得原始颜色的裁剪图像

 r <- raster(system.file("external/rlogo.grd", package="raster"))
 r1 <- brick(system.file("external/rlogo.grd", package="raster"))
 plot(r)
 plotRGB(r1, interpolate = TRUE)

 plot(r,xlim=c(0,50),ylim=c(0,50),legend=FALSE,axes=FALSE,frame.plot=F)
 plotRGB(r1,xlim=c(0,50),ylim=c(0,50),legend=FALSE,axes=FALSE,frame.plot=F)

Answer 1

这是一个错误，但可以通过 'crop' 函数

轻松解决它

r1 <- brick(system.file("external/rlogo.grd", package="raster"))
x <- crop(r1, extent(0,50,0,50))
plotRGB(x)

R光栅图裁剪plotRGB图像

R raster plot cropping plotRGB image

plot

r

image

raster