ggplot2 - 结合 sf 的多边形在 ggplot 中绘图时，栅格的 NA 值具有填充

Question

我正在尝试在 ggplot2 中绘制一个栅格和一个简单的特征，这些图对我来说比基本图更漂亮。

我遇到的问题是栅格的 NA 值有灰色填充，我希望它们透明以具有白色背景和 ggplot2 的网格

这是一个可重现的例子

加载包:

library(sf)
library(raster) 
library(tidyverse)
library(ggspatial)
library(rworldxtra)

获取数据:

data("countriesHigh")
Peru <- countriesHigh %>% st_as_sf() %>% filter(ADMIN.1 == "Peru")
PeruRaster <- getData('alt', country='PER', mask=TRUE)

当我尝试将它们绘制在一起时，我的主要问题是背景(NA 数据)有灰色填充:

ggplot() + geom_sf(data = Peru) + theme_bw() + layer_spatial(PeruRaster)

关于如何使背景填充透明以便可以看到 ggplot 的网格有什么想法吗？

PS:我也在努力

ggplot() + layer_spatial(PeruRaster) + geom_sf(data = Peru, alpha = 0) + theme_bw() 

现在但是图表需要一段时间

Answer 1

使用 scale_fill_continous 中的 na.value 参数进行设置

ggplot() + geom_sf(data = Peru) + 
  theme_bw() + 
  layer_spatial(PeruRaster) +
  scale_fill_continuous(na.value = "white")