r - 在 ggRGB 上叠加 ggR 栅格

Question

我试图在用 ggRGB 绘制的 RGB 上用 ggR 覆盖光栅。部分 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")

标签： rggplot2raster

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)

这应该够了吧