Question

我是使用R进行空间分析的新手。使用this链接我已经下载了.osm.pbf格式的OSM数据。然后我用osm2pgsql工具在PostgreSQL（PostGIS扩展）中获取数据。现在我在我的数据库中有几个表，我想访问R中的多边形表，然后对多边形矢量数据执行空间分析。我一直在搜索allot但是我无法在R中导入所需的数据。我发现this教程与我正在寻找的内容非常类似，但它在Python中。我想使用R.

从PostGIS访问多边形数据

因此，基本上我想知道R与PostGIS的交互。任何人都可以推荐我关于这个主题的书吗？因为到目前为止我找不到适用于我的Windows 10 64位计算机的博客或教程。

感谢您的时间并期待您的建议。

Answer 1

我还没有找到一种方法来使用R中提供的rgdal软件包从PostGIS获取所需的数据。可能是因为我的操作系统问题。（我不确定，因为我不是专家）。但是我找到了rgdal的替代方案，它完全按照我的意愿去做。代码如下：

library(RPostgreSQL)
library(rgeos)
library(sp)

# Load data from the PostGIS server
conn = dbConnect(
  dbDriver("PostgreSQL"), dbname="dbNAME", host="localhost", port=5432, 
  user="username", password="pw"
)

strSQL = "SELECT osm_id, name, area, highway, railway, place, ST_AsText(way) AS wkt_geometry FROM table"
df = dbGetQuery(conn, strSQL)

#Geomtery column as R list
geo_col = df$wkt_geometry

polygon_list = suppressWarnings(lapply(geo_col, function(x){
x <- gsub("POLYGON\\(\\(", "", x)
x <- gsub("\\)", "", x)
x <- strsplit(x, ",")[[1]]

#Now each polygon has been parsed by removing POLYGON(( from the start and )) from the end
#Now for each POLYGON its xValues and yValues are to be extracted to for Polygon object
xy <- strsplit(x, " ")

v_xy = suppressWarnings(sapply(xy, function(p){        
  xValue = p[1]
  yValue = p[2]
  vec = c(xValue, yValue)
}))

#Now we have all x values in first column of v_xy and all y values in second column of v_xy
#Let us make the Polygon object now
p_xvalues = as.numeric(v_xy[1, ])
p_yvalues = as.numeric(v_xy[2, ])
p_object <- Polygon(cbind(p_xvalues, p_yvalues))      
}))

#Now we have all of the polygons in polygon object format
#Let us join it with main data frame, i.e. df
df$object_polygon <- polygon_list
#View(df)

#Now Let us form SpatialPolygons() object out of it
Ps_list = list()
for (i in seq(nrow(df))) {
  Ps_list[[i]] <- Polygons(polygon_list[i], ID=df[i,][1])
}
SPs = SpatialPolygons(Ps_list)

#Now FINALY its the time to form SpatialPolygonsDataFrame
row.names(df) = df$osm_id
SPDF = SpatialPolygonsDataFrame(Sr = SPs, data = df[, 1:6], match.ID = TRUE)

因此，基本上我必须编写一个解析器来获取readOGR（）在一行中所需的数据。

Answer 2

我不认识R，但对postgis非常熟悉。 Postgis只是SQL函数，如果你可以使用Select你可以访问postgis，

因此，如果你想要访问多边形，只需在postgres中创建新函数。

但是如果你想要显示多边形，你需要检查R有哪些功能可用，我通常使用Openlayer javascript api在网页上显示我的结果。

如何将OSM多边形数据从PostGIS导入R？

2 个答案: