使用 ggplot2 绘制来自 Geotiff 的 R 背景图

Question

使用 R 基础图，我可以使用以下命令绘制任何 geotiff:

library("raster")
plot(raster("geo.tiff"))

比如下载 this数据，我会做以下:

setwd("C:/download") # same folder as the ZIP-File
map <- raster("smr25musterdaten/SMR_25/SMR_25KOMB_508dpi_LZW/SMR25_LV03_KOMB_Mosaic.tif")

你如何在 ggplot2 中绘制 GeoTif 文件？

编辑:

1:我用彩色 map 替换了示例文件中的灰度 map ，以说明缺少颜色表的问题。

2:在Pascals回答的帮助下，我能够适应和改进 this solution并使其对输入 tif 更具动态性。我将在下面发布答案。

Answer 1

这是使用函数 gplot 的替代方法来自 rasterVis包裹。

library(rasterVis)
library(ggplot2)
setwd("C:/download") # same folder as the ZIP-File
map <- raster("smr25musterdaten/SMR_25/SMR_25KGRS_508dpi_LZW/SMR25_LV03_KGRS_Mosaic.tif")

gplot(map, maxpixels = 5e5) + 
  geom_tile(aes(fill = value)) +
  facet_wrap(~ variable) +
  scale_fill_gradient(low = 'white', high = 'black') +
  coord_equal()

如果要使用颜色表:

coltab <- colortable(map)
coltab <- coltab[(unique(map))+1]

gplot(map, maxpixels=5e5) + 
  geom_tile(aes(fill = value)) +
  facet_wrap(~ variable) +
  scale_fill_gradientn(colours=coltab, guide=FALSE) +
  coord_equal()

搭配颜色: