Question

所以我有一些已经有效的R代码。这会在http://robinlovelace.net/r/2014/07/29/clipping-with-r.html方法中针对shapefile从数据和空间子集中获取大量点。

#data is a .csv file with lon lat points
data_points <- SpatialPoints(data)
proj4string(data_points) <- CRS("+proj=longlat +datum=WGS84 +no_defs +ellps=WGS84 +towgs84=0,0,0")
data_ll <- spTransform(data_points, CRS("+proj=longlat +datum=WGS84 +no_defs +ellps=WGS84 +towgs84=0,0,0"))
melbourne <- readOGR("melbourne_australia.land.coastline","melbourne_australia_land_coast") #this is a shapefile from https://mapzen.com/data/metro-extracts
subset <- data_ll[melbourne,]

积（墨尔本）点（子集）

我试图将其转换为相应的rpy2脚本。到目前为止，我有;

import pandas as pd
import numpy as np
import rpy2.robjects as ro
import rpy2.robjects.numpy2ri
from rpy2.robjects.packages import importr
rgdal = importr('rgdal')
base = importr('base')

rpy2.robjects.numpy2ri.activate()
data = pd.read_csv('sim.csv')
data = data.values
coordinates = ro.r['coordinates']
proj4string = ro.r['proj4string']
spTransform = ro.r['spTransform']
readOGR = ro.r['readOGR']
SpatialPoints = ro.r['SpatialPoints']
CRS = ro.r['CRS']
class_r = ro.r['class']

key = CRS("+proj=longlat +datum=WGS84 +no_defs +ellps=WGS84 +towgs84=0,0,0")
data_points = SpatialPoints(data, proj4string = key)
data_ll = spTransform(data_points, key)
melbourne = readOGR("melbourne_australia.land.coastline", "melbourne_australia_land_coast")

subset = data_ll[melbourne,]

在最后一行失败并出现错误TypeError：＆＃39; RS4＆＃39;对象不可订阅。有没有人知道发生了什么？

Answer 1

执行此操作的一种方法是将R代码转换为函数，然后将其作为包导入。

这是R代码：

library(rgdal)
library(sp)

#import data
data <- read.csv("sim.csv", header = F)

subset_points <- function(data){
    data_points <- SpatialPoints(data, proj4string=CRS("+proj=longlat +datum=WGS84 +no_defs +ellps=WGS84 +towgs84=0,0,0"))
    data_ll <- spTransform(data_points, CRS("+proj=longlat +datum=WGS84 +no_defs +ellps=WGS84 +towgs84=0,0,0"))
    sink("/dev/null")  
    melbourne <- readOGR("melbourne_australia.land.coastline", "melbourne_australia_land_coast")
    sink()
    subset <- data_ll[melbourne,]

    final <- as.data.frame(subset)
    return(final)
}

这是Python代码：

import rpy2.robjects as ro
import rpy2.robjects.numpy2ri
from rpy2.robjects.packages import importr

from rpy2.robjects.packages import SignatureTranslatedAnonymousPackage
with open('subset_data.R') as fh:
    rcode = os.linesep.join(fh.readlines())
    subset = SignatureTranslatedAnonymousPackage(rcode, "subset")
rpy2.robjects.numpy2ri.activate()

data = pd.read_csv('sim.csv')
data = data.values
final = subset.subset_points(data)
print(np.array(final).T)

让Rpy2与rgdal一起使用到空间子集点

1 个答案: