如何为 plotRGB 和 plot 设置相同的输出范围？

Question

使用plot 和plotRGB 生成绘图不会给出相同的输出范围。我想为1 和2 提供相同程度的输出。

# generate red, green, blue random 10 by 10 matrix
r <- g <- b <- raster(ncol=10, nrow=10)
values(r) <- runif(ncell(r))
values(g) <- runif(ncell(r))
values(b) <- runif(ncell(r))

rgb = rgb<-stack(r*255,g*255,b*255)

# plot red
plot(r,legend=F)
# plot RGB
plotRGB(rgb)

Answer 1

函数raster::plot 想要在绘图中添加一个图例，因此它在右侧节省了一些空间，而plotRGB 只是占据了整个范围。

您可以通过将栅格添加到现有绘图来解决此问题：

library(raster)

# generate red, green, blue random 10 by 10 matrix
r <- g <- b <- raster(ncol=10, nrow=10)
values(r) <- runif(ncell(r))
values(g) <- runif(ncell(r))
values(b) <- runif(ncell(r))

rgb = rgb<-stack(r*255,g*255,b*255)
par(mfrow=c(2,1))

plot(c(-180,180),c(-90,90), type='n', axes=F, xlab='', ylab='')
plotRGB(rgb,add=T)

plot(c(-180,180),c(-90,90), type='n', axes=F, xlab='', ylab='')
plot(r,add=T, legend=F)