Google Earth Engine（GEE）——1.计算夜间灯的趋势（R-GEE版）

此星光明

发布于 2024-02-02 08:16:42

900

发布于 2024-02-02 08:16:42

文章被收录于专栏：GEE数据专栏，GEE学习专栏，GEE错误集等专栏GEE数据专栏，GEE学习专栏，GEE错误集等专栏

验证和初始化 Earth Engine R API。

#先导入库然后加载你的认证
library(rgee)
ee_Initialize()

添加一个包含图像日期自 1991 年以来的波段。

#船舰一个函数要求波段信息获取自1991年的时间
createTimeBand <-function(img) {
  year <- ee$Date(img$get('system:time_start'))$get('year')$subtract(1991L)
  ee$Image(year)$byte()$addBands(img)
}

将时间带创建助手映射到夜间灯光集合上。

#r语言一般是把.换成了$
collection <- ee$
  ImageCollection('NOAA/DMSP-OLS/NIGHTTIME_LIGHTS')$
  select('stable_lights')$
  map(createTimeBand)

计算每个像素的一系列值的线性拟合，将 y 截距可视化为绿色，将正/负斜率可视化为红色/蓝色。

#利用reduce做线性回归然后添加报端并选择scale范围
col_reduce <- collection$reduce(ee$Reducer$linearFit())
col_reduce <- col_reduce$addBands(
  col_reduce$select('scale'))
ee_print(col_reduce)

创建交互式可视化！

#这个基本上和JS和python的语法都一样！
Map$setCenter(9.08203, 47.39835, 3)
Map$addLayer(
  eeObject = col_reduce,
  visParams = list(
    bands = c("scale", "offset", "scale"),
    min = 0,
    max = c(0.18, 20, -0.18)
  ),
  name = "stable lights trend"
)