R：如何从RasterLayer获取经度和纬度？

我绝对是地理数据的初学者，因此，如果问题不适当，请原谅我。

我从NCDC NARR下载了数据，并设法使用该raster软件包将其加载到R中。我想获得一个包含纬度，经度和价值的列表。我知道该功能rasterToPoints()可以完全满足我的要求，但是，我的纬度和经度值看起来很奇怪：

r <- raster(myfile)
data_matrix <- rasterToPoints(r)
head(data_matrix)
            x       y value
[1,] -5405401 4347242    70
[2,] -5372938 4347242    88
[3,] -5340475 4347242    76
[4,] -5308012 4347242    85
[5,] -5275549 4347242    87
[6,] -5243086 4347242    88

我想我应该对当前为Lambert Conformal Conic（LCC）的投影做些什么。以下是有关栅格的更多信息。

> r
class       : RasterLayer 
dimensions  : 277, 349, 96673  (nrow, ncol, ncell)
resolution  : 32463, 32463  (x, y)
extent      : -5648874, 5680713, -4628777, 4363474  (xmin, xmax, ymin, ymax)
coord. ref. : +proj=lcc +lat_1=50 +lat_2=50 +lat_0=50 +lon_0=-107 +x_0=0 +y_0=0 +a=6371200 +b=6371200 +units=m +no_defs 
data source : mypath-to-file
names       : value

如何获得美国的真实纬度和经度值？

您实际上需要使用“ projectRaster”或“ spTransform”将栅格重新投影为地理（十进制度）投影。还要查看指定您所需的投影字符串的CRS sp定义。如何执行“ projectRaster”帮助中的示例非常清楚。

如果将栅格数据强制转换为SpatialPointsDataFrame对象，则可以使用“ spTransform”并从@coordinates插槽中提取坐标，并将其添加到@data插槽中的data.frame中。这是一个示例。

library(raster)
library(rgdal) # for spTransform

# Create data
r <- raster(ncols=100, nrows=100)
  r[] <- runif(ncell(r))
  crs(r) <- "+proj=lcc +lat_1=48 +lat_2=33 +lon_0=-100 +ellps=WGS84"
  projection(r)

# Convert raster to SpatialPointsDataFrame
r.pts <- rasterToPoints(r, spatial=TRUE)
  proj4string(r.pts)

# reproject sp object
geo.prj <- "+proj=longlat +datum=WGS84 +ellps=WGS84 +towgs84=0,0,0" 
r.pts <- spTransform(r.pts, CRS(geo.prj)) 
  proj4string(r.pts)

# Assign coordinates to @data slot, display first 6 rows of data.frame
r.pts@data <- data.frame(r.pts@data, long=coordinates(r.pts)[,1],
                         lat=coordinates(r.pts)[,2])                         
head(r.pts@data)

我应该注意，将栅格转换为矢量对象类并不是一种好习惯，并且否定了栅格包提供内存安全处理的优点。认真考虑问题并评估是否正确解决问题通常是谨慎的做法。如果OP提供了有关为什么每个单元需要[x，y]坐标的上下文，则论坛社区可能已经能够提供将问题保留在光栅环境中的计算替代方案。

获取单元中心的坐标并创建一个Spatial对象：

spts <- rasterToPoints(r, spatial = TRUE)

将点转换为所需的目标：

library(rgdal)
llprj <-  "+proj=longlat +ellps=WGS84 +datum=WGS84 +no_defs +towgs84=0,0,0"
llpts <- spTransform(spts, CRS(llprj))

这些值已经被复制为该SpatialPointsDataFrame上的列。

print(llpts)

现在完成操作，获取一个data.frame：

x <- as.data.frame(llpts)

SGAT软件包中对此有一个通用实现，请参见lonlatFromCell此处的功能：

https://github.com/SWotherspoon/SGAT/blob/master/R/Raster.R

看来您那里有投影坐标（不是纬度/经度，也称为GCS坐标）。您可能不清楚这就是问题所在。看到这篇文章。 在R中转换地理坐标系