喜大普奔！rgee能用了！R语言也可以使用Google Earth Engine了！

去年的时候曾经写过一个推文，关于rgee，但是由于rgee的不知道是BUG还是啥问题，认证一直不成功，没有办法愉快的使用，今天我收到了来自rgee的作者之一的邮件，告诉我了这个BUG已经有了解决方法，我再次试验了rgee，成功运行！

rgee安装

我使用了R4.0.3版本，建议大家使用最新的R语言版本，R4.0版本我目前已经用了几个月，感觉和3差别不大，以前的一些包也都可以使用，强烈大家更新R4.0最新版本。

rgee安装

安装RGEE环境，使用下面的代码，自动安装，需要偶尔手动输入一下Y或者其它参数，根据提示输入即可：

library(rgee)
ee_install()

代码执行开始，会弹出下面的一些提示：

Y，写入系统环境变量

1重启R语言

RGEE启动

rgee初始化，运行下面的代码开始启动RGEE，注意要翻墙！：

library(rgee)
ee_Initialize()

启动后会弹出一个网页，让你登陆GEE，生成一串启动代码：

开始启动

复制代码粘贴到R里面，贴到上图输入的地方

受网络影响可能会卡一下，我重启了一下，重新运行了启动代码，显示启动成功！

试验代码：

createTimeBand <-function(img) {
  year <- ee$Date(img$get('system:time_start'))$get('year')$subtract(1991L)
  ee$Image(year)$byte()$addBands(img)
}

collection <- ee$
  ImageCollection('NOAA/DMSP-OLS/NIGHTTIME_LIGHTS')$
  select('stable_lights')$
  map(createTimeBand)

col_reduce <- collection$reduce(ee$Reducer$linearFit())
col_reduce <- col_reduce$addBands(
  col_reduce$select('scale'))
ee_print(col_reduce)

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"
)

运行成功！

参考文献

1. https://github.com/r-spatial/rgee

点击阅读原文跳转Github rgee主页