使用 R 更改光栅投影

Question

我正在尝试使用 R 和 raster 包更改光栅投影。输入光栅投影是兰伯特方位角；参数在这里：

Coordinate System:
Lambert_Azimuthal_Equal_Area
False_Easting: 4321000,000000
False_Northing: 3210000,000000
Central_Meridian: 10,000000
Latitude_Of_Origin: 52,000000
GCS_ETRS_1989
Datum: D_ETRS_1989
Prime Meridian: 0


PROJCS
 ["ETRS_1989_LAEA",
   GEOGCS ["GCS_ETRS_1989",
           DATUM ["D_ETRS_1989",
                  SPHEROID ["GRS_1980",6378137.0,298.257222101]],
           PRIMEM["Greenwich",0.0],
          UNIT["Degree",0.0174532925199433]],
   PROJECTION["Lambert_Azimuthal_Equal_Area"],
   PARAMETER["False_Easting",4321000.0],
   PARAMETER["False_Northing",3210000.0],
   PARAMETER["Central_Meridian",10.0],
   PARAMETER["Latitude_Of_Origin",52.0],
   UNIT["Meter",1.0]]

我需要将它们转换为 ESRI ASCII 格式的简单栅格，使用经度和纬度坐标，使用墨卡托式投影，像元大小为 0.1 度（我希望我能充分解释自己，因为我不知道没有足够的 GIS 技能，抱歉）。我需要的是格式为 .ASC 的栅格，其中栅格的每个值对应于大小为 N x N 的单个像元，其中 N 以度为单位（例如 0.1 度），以及栅格坐标在 longitude/latitude.

我尝试在 R 中使用 raster 库，并遵循为 projectRaster 函数找到的示例。但是在使用许多参数进行多次尝试之后，我无法正确地做到这一点。我想我没有使用正确的投影参数、基准面或类似的参数。

这是我试过的。我在 R 中加载栅格，然后使用以下方式设置其投影：

>crs(r)<-"+proj=laea +lat_1=52 +lon_0=-10 +ellps=GRS80"

然后我定义输出投影并尝试转换并保存：

>newproj <- "+proj=lonlat +lat_1=52 +lon_0=-10 +ellps=WGS84"
>pr2 <- projectRaster(r, crs=newproj, res=0.1)
>writeRaster(pr2, "newraster.asc", overwrite=TRUE)

没有错误消息，但生成的栅格投影不正确（国家边界不匹配，国家略有扭曲）。

感谢您的帮助！

Answer 1

鉴于您提供的投影描述，这似乎是错误的：

crs(r) <- "+proj=laea +lat_1=52 +lon_0=-10 +ellps=GRS80"

因为你没有包括假北和假东参数； lat_1 应该是 lat_0。这可能更好：

crs(r) <- "+proj=laea +lat_0=52 +lon_0=10 +x_0=4321000 +y_0=3210000 +ellps=GRS80 +units=m"

这看起来也很奇怪：

newproj <- "+proj=lonlat +lat_1=52 +lon_0=-10 +ellps=WGS84"

怎么样

newproj <- "+proj=longlat +datum=WGS84"

使用 R 更改光栅投影

Using R to change raster projection

gis

r

projection

raster