在 R 中以交互方式显示航拍照片

Question

我用无人机拍摄航拍照片，然后使用第三方软件将它们拼接成 .geotiff 文件。我想将此文件作为图层添加到交互式 leaflet 地图中，例如由 mapview 制作。我可以制作一个交互式地图，但这只显示数据，例如数字高程不是实际照片。

.geotiff 文件不是很容易获得，因此请参阅此 link 以获取来自 naturalearth 的示例文件：https://www.naturalearthdata.com/downloads/50m-raster-data/50m-cross-blend-hypso/

library(magrittr)

exmpl <- terra::rast(".\HYP_50M_SR.tif") %>% 
  raster::brick()

mapview::mapview(exmpl)

我只对显示重复航空摄影所记录的随时间变化感兴趣，对从光栅图像中提取数据不感兴趣。我以前只处理矢量数据，所以如果这不是一个聪明的问题，请放轻松。我喜欢使用 mapview 因为它很简单，但是基础 leaflet、tmap 或任何其他基于 R 的交互式解决方案对我来说都很好。非常感谢！

Answer 1

我猜您正在寻找 mapview::viewRGB() 函数。

请在下面找到一个小表达式。

Reprex

library(mapview)
library(magrittr)

exmpl <- terra::rast(".\HYP_50M_SR.tif") %>% 
  raster::brick()

plotRGB(exmpl)

mapview::viewRGB(exmpl, r = 1, g = 2, b = 3, quantiles = NULL)

^{由 reprex package (v2.0.1)}

于 2022-02-10 创建

Display aerial photographs interactively in R