在与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的网格，您有什么想法吗？

附言:我也在努力

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")