在ggRGB

Question

我试图用ggR在ggRGB绘制的RGB上覆盖栅格。 ggR栅格的某些部分具有NA值（或也可以为零），该值应该是透明的并显示基础RGB栅格。对如何实现这一目标有帮助吗？

library(RStoolbox)
library(tidyverse)

data(rlogo)
im <- rlogo[[1]]
im[im>100]=NA
im[im<=100]=1
ggRGB(rlogo, r=1, g=2, b=3)+ggR(im,ggLayer=T,geom_raster=T)+ 
scale_fill_gradientn(colours=rainbow(1),na.value="transparent")

Answer 1

问题是“透明”的。

library(RStoolbox)
library(tidyverse)

data(rlogo)
im <- rlogo[[1]]
im[im>100]=NA
im[im<=100]=1
ggRGB(rlogo, r=1, g=2, b=3)+ggR(im,ggLayer=T,geom_raster=T)+ 
scale_fill_gradientn(colours=rainbow(1),na.value=NA)

应该可以解决问题