如何将Lambert Conic Conformal光栅投影更改为latlon度R.

Question

我有一个栅格，从netcdf获得（Lambert Conic Conformal projection）：

    library(meteoForecast)
    wrf_temporary <- getRaster("temp", day = Sys.Date(), frames = 'complete', resolution = 36, service = "meteogalicia")
    wrf_temporary

extent      : -18, 4230, -18, 3726  (xmin, xmax, ymin, ymax)
coord. ref. : +proj=lcc +lat_1=43 +lat_2=43 +lat_0=34.82300186157227 +lon_0=-14.10000038146973 +x_0=536402.34 +y_0=-18558.61 +ellps=WGS84 +towgs84=0,0,0,0,0,0,0 +units=km +no_defs 

现在我想将那个wrf_temporary光栅转换为"+proj=longlat +datum=WGS84"（lat long degree）。该怎么办？ 我想要这样的东西：

    mfExtent('meteogalicia', resolution = 36)

class       : Extent 
xmin        : -49.18259 
xmax        : 18.789 
ymin        : 24.03791 
ymax        : 56.06608 

已经尝试了很多选项，但没有一个能给出正确的结果......

Answer 1

这应该有效：

> ll = projectRaster(wrf_temporary,crs="+init=epsg:4326")
> plot(ll[[1]])

并产生这个：

乍一看看起来不错，但格林威治子午线（经度= 0）不会经过伦敦。

对于设置为其他值4或12的分辨率，不会出现此问题。使用resolution = 36调用时，会获得一个比其他值更大但具有相同投影字符串的栅格。这不可能是对的。例如，下图中的（0,0）坐标应该是地球上的相同点，因为它们声称是相同的投影，但它们不是。

我认为分辨率= 12是正确的。这里的栅格转换为lat-long，覆盖了EU矢量覆盖：

完美排列。

所以我会说它是一个错误 - getRaster正在猜测投影并弄错，或者在裁剪后不应用投影更改，或者它使用的任何服务都在于投影。

getRaster正在猜测。投影信息位于下载的NetCDF文件中。在另一种格式。对于resolution = 36文件，投影信息部分为：

int Lambert_Conformal ;
    Lambert_Conformal:standard_parallel = 43., 43. ;
    Lambert_Conformal:latitude_of_projection_origin = 24.2280006408691 ;
    Lambert_Conformal:false_easting = 2182.62935 ;
    Lambert_Conformal:false_northing = -269.65597 ;
    Lambert_Conformal:grid_mapping_name = "lambert_conformal_conic" ;
    Lambert_Conformal:longitude_of_central_meridian = -14.1000003814697 ;
    Lambert_Conformal:_CoordinateTransformType = "Projection" ;
    Lambert_Conformal:_CoordinateAxisTypes = "GeoX GeoY" ;

与R包使用的分辨率= 12投影略有不同。所以做一个合规的：

p = "+proj=lcc +lat_1=43 +lat_2=43 +lat_0=24.2280006408691 +lon_0=-14.1000003814697 +x_0=2182629.35 +y_0=-269655.97 +ellps=WGS84 +towgs84=0,0,0,0,0,0,0 +units=km +no_defs"
 wrf <- getRaster('temp', day = testDay, resolution=36)
 projection(wrf) = p

然后我的欧盟覆盖测试......

请注意，这次我重新插入欧盟。执行projectRaster到latlong的工作也是如此：

> wrfLL = projectRaster(wrf, crs="+init=epsg:4326")
> plot(wrfLL[[1]])
> abline(v=0)

格林威治子午线在合法的地方。