r - R spTransform 投影点不是有限的

Question

我从http://www1.kew.org/gis/tdwg/index.html下载了 TDWG level4 形状。此形状具有 WGS84 投影。我需要将此层重新投影到欧洲 LAEA 或 CRS("+init=epsg:3035")。

我使用了以下代码：

TDWG4 <- readOGR("D:/GIS/Administrative/world/TDWG/level4/level4.shp", layer="level4")
TDWG4.LAEA <- spTransform(TDWG4, CRS("+init=epsg:3035"))

并得到以下错误：

.spTransform_Polygon(input[[i]], to_args = to_args, from_args = from_args, : Polygons 中的错误 37 Polygon 1 分另外：警告消息：在 .spTransform_Polygon(input[[i]], to_args = to_args, from_args = from_args, : 361 个投影点不是有限的

有什么建议可以解决这个问题吗？

Answer 1

使用sf，因为这已在很大程度上取代rgdal/rgeos：

# install.packages("sf")
library("sf")
tdwg4.laea = sf::read_sf("level4.shp")  # assumes in project root
tdwg4.laea = sf::st_transform(tdwg4.laea, 3035)

我们现在必须裁剪该区域，因为 3035 EPSG 仅与欧洲相关：

install.packages("rmapshaper")
library("rmapshaper")
tdwg4.laea = rmapshaper::ms_clip(
  tdwg4.laea,
  bbox = c(2426378.0132, 1528101.2618, 6293974.6215, 5446513.5222))

EPSG 3035 的边界框来自：http ://spatialreference.org/ref/epsg/etrs89-etrs-laea/

现在绘制：

plot(tdwg4.laea)