R语言leafem包，addGeoRaster函数，将光栅图像添加到活页地图中

R语言leafem包，addGeoRaster函数，将光栅图像添加到活页地图中

ex1

mytif

几个重要参数：

project = T, # crs投影坐标系传递
resolution = 256, # 渲染插值
opacity = .6, # 不透明度
colorOptions = colorOptions(palette = grey.colors(256))

# Wed Nov 04 00:24:32 2020 -

# 字符编码：UTF-8
# R 版本：R x64 4.0.3 for window 10
# cgh163email@163.com
# 个人笔记不负责任
# —— 拎了个梨🍐
.rs.restartR()

require(leafem)
rm(list=ls());gc()
# addGeoRaster,将光栅图像添加到活页地图中。

interactive() #  是否交互运行
library(leaflet)
  library(leafem)
  library(stars)

  tif = system.file("tif/L7_ETMs.tif", package = "stars")
  x1 = read_stars(tif)
  x1 = x1[, , , 3] # band 3
  x1 %>% plot()

  leaflet() %>%
    addTiles() %>%
    leafem:::addGeoRaster(
      x1
      , opacity = 1
      , colorOptions = colorOptions(
        palette = grey.colors(256)
      )
    )

# Wed Nov 04 00:36:06 2020 -diy-----------------------------
tif <- read_stars('https://gitee.com/youmigo/bate/blob/master/img.file/GAIA_1985_2018_70_030.tif')
# tif <- read_stars('001.tif')
plot(tif)
# tif <- tif[,,,3]

leaflet() %>%
  addTiles() %>%
  addGeoRaster(tif,project = T, #  crs投影坐标系传递
               resolution = 256, #  渲染插值
               opacity = .6, #  不透明度
               colorOptions = colorOptions(palette = grey.colors(256)))
t# Wed Nov 04 00:45:53 2020 --