从R

时间:2018-02-14 12:40:54

标签: r gis raster shapefile mercator

我有一个包含多个多边形的形状文件,我需要在列表文件中的不同文件 OR 中获取每个多边形的墨卡托坐标。 这里是具有来自my shapefile的每个多边形的范围的列表

a<-extent(659302.4, 659802.4, 9860325, 9860825)
b<- extent(647663, 648163, 10033987, 10034487)
c<-extent(609015.1, 609515.1, 9871028, 9871528)
ab<-c(a,b,c)

我需要为列表中的每个范围生成一个mercator坐标列表 OR 一个包含每个文件坐标的文件。到目前为止,我唯一的选择是栅格化每个范围,分配CRS坐标,然后转换为mercator,如下所示

bb<-raster(b)
crs(bb)<- "+proj=utm +zone=17 +south +datum=WGS84 +units=m +no_defs +ellps=WGS84 +towgs84=0,0,0"
mbb<-projectRaster(bb, crs="+proj=merc +a=6378137 +b=6378137 +lat_ts=0.0
                   +lon_0=0.0 +x_0=0.0 +y_0=0 +k=1.0 +units=m +nadgrids=@null +no_defs")
  

mbb class:RasterLayer尺寸:12,12,144(nrow,ncol,   ncell)分辨率:50,50.3(x,y)范围:-8869218,   -8868618,34170.81,34774.41(xmin,xmax,ymin,ymax)coord。 REF。 :+ proj = merc + a = 6378137 + b = 6378137 + lat_ts = 0.0 + lon_0 = 0.0 + x_0 = 0.0 + y_0 = 0 + k = 1.0 + units = m + nadgrids = @ null + no_defs

这种方法的唯一问题是非常慢,特别是当我需要获得数百个多边形范围的墨卡托坐标时。

编辑:我想要的是将投影从UTM更改为墨卡托,我在想一个允许为 范围列表执行此操作的函数,而不是单独执行,如上例所示。

1 个答案:

答案 0 :(得分:1)

如果要更改范围(不是栅格)的投影,可以使用:

library(raster)
library(dplyr)
library(purrr)

a<-extent(659302.4, 659802.4, 9860325, 9860825)
b<- extent(647663, 648163, 10033987, 10034487)
c<-extent(609015.1, 609515.1, 9871028, 9871528)
ab<-c(a,b,c)

ab <- map(ab, function(x) {as(x,'SpatialPolygons')}) %>%
      map(.,function(x){x@proj4string <- CRS("+proj=utm +zone=17 +south +datum=WGS84 +units=m +no_defs +ellps=WGS84 +towgs84=0,0,0");
                        spTransform(x,CRS("+proj=merc +a=6378137 +b=6378137 +lat_ts=0.0 +lon_0=0.0 +x_0=0.0 +y_0=0 +k=1.0 +units=m +nadgrids=@null +no_defs"))})

# back to extent
new_extent <-  ab %>% map(extent)