Question

我在NAD83（Hard）/ CA Albers中预测了10个CA县的shapefile。我在WGS84 / WGS84中投影了整个美国的栅格（温度的netCDF文件）。我想使用shapefile剪辑栅格。我知道我需要先将它们放在相同的基准/投影上。但是我尝试使用raster :: projectRaster（）重新投影栅格。失败了（因为数据消失了）。因此，我尝试使用sp :: spTransform（）重新投影shapefile。这也失败了（因为数据不重叠）。我已经搜索了stackoverflow，但没有发现任何有帮助的东西。我没有收到错误消息，但是projectRaster无法正常工作，并且使用spTransform重新投影shapefile不会产生预期的结果。我觉得这里发生了一些特定的问题，例如从WGS84到NAD83的转换或使用raster()加载栅格是问题……但是，再次，这很可能是我所缺少的愚蠢行为！ =）

我的shapefile和栅格在这里：https://www.dropbox.com/sh/l3b2syzcioeqmyy/AAA5CstBZty4ofOcVFkAumNYa?dl=0

这是我的代码：

library(raster) #for creating rasters from .bil files
library(rgdal) #for reading .bil files and .gdb files
library(ncdf4) #for working with ncdf files
library(sp) #for working with spatial data files

load(my_counties.RData)
myraster <- raster(myraster.nc)
my.crs <- CRS("+init=EPSG:3311") #NAD83(HARN) / California Albers (HARN is high resolution)

newraster <- projectRaster(myraster, res = 6000, crs = my.crs) #raster resolution is 1/16th of a degree

#There is data in the raster.
plot(myraster)

#but none in newraster
plot(newraster)

#Now try re-projecting the shapefile
my.crs2 <- crs(myraster)
newshapefile <- spTransform(my_counties, my.crs2)

#but the data don't overlap
plot(newshapefile); plot(myraster, add = T)

Answer 1

你可以

library(raster)
library(rgdal)

load("my_counties.RData")
b <- brick("myraster.nc")

现在看看b

b
#class      : RasterBrick 
#dimensions : 490, 960, 470400, 365  (nrow, ncol, ncell, nlayers)
#resolution : 0.0625, 0.0625  (x, y)
#extent     : 234, 294, 23.375, 54  (xmin, xmax, ymin, ymax)
#crs        : +proj=longlat +datum=WGS84 +ellps=WGS84 +towgs84=0,0,0 
#source     : myraster.nc 
#names      : X2005.01.01, X2005.01.02, X2005.01.03, X2005.01.04, X2005.01.05, X2005.01.06, X2005.01.07, X2005.01.08, X2005.01.09, X2005.01.10, X2005.01.11, X2005.01.12, X2005.01.13, X2005.01.14, X2005.01.15, ... 
#Date       : 2005-01-01, 2005-12-31 (min, max)
#varname    : tasmax

水平范围在234和294度之间。这指向的系统经度从格林威治（Greenwich）开始于0，然后一直延伸到360（在格林威治中同样）。气候学家做到这一点。要使用更传统的-180至180度系统：

r <- shift(b, -360)

（如果您的数据具有全球范围，则应改用raster::rotate）

现在，将各县转变为lonlat，并证明它们重叠。

counties <- spTransform(my_counties, crs(r))
plot(r, 1)
lines(counties)

通常最好转换矢量数据，而不是栅格数据，如果可以避免的话。

如何在同一投影上获得此栅格和shapefile？

1 个答案: