rgee下载copDEM（史上最精确开源DEM数据）

【代码】rgee下载copDEM（史上最精确开源DEM数据）

地狱道

388人浏览 · 2023-05-30 08:15:31

地狱道 · 2023-05-30 08:15:31 发布

library(rgee)
library(sf)

ee_Initialize(drive = T)  #启动GEE和Google Drive

ee_roi <- read_sf("./SHP/ChinaSizhi.shp") %>%
  sf_as_ee()

copDEM <- ee$ImageCollection("projects/sat-io/open-datasets/GLO-30")

#数据预览
dem_composite = copDEM$
  mosaic()$
  clip(ee_roi)

demParams <- list(
  min = 0,
  max = 6000,
  palette = c(
    '#006600', '#002200', '#fff700', '#ab7634', '#c4d0ff', '#ffffff'
  ))

Map$centerObject(ee_roi)
Map$addLayer(dem_composite, demParams, "dem")+
  Map$addLayer(ee_roi)+
  Map$addLegend(demParams)

demtif <- ee_as_raster(
  image = dem_composite,
  region = ee_roi$geometry(),
  scale = 30,
  dsn = "./copDEM/dem.tif",
  via = "drive",
  maxPixels = 1e13
)