子集空间多边形df的坐标

Question

我正在使用spdf构建一个带有传单和r闪亮的交互式地图。我想根据当前视图中地图边界的坐标来反应性地对我的数据进行子集化（为了绘制相应变化的图形）。

可以通过数据属性e.ge

对spdf进行子集化

spdf2 <- spdf1[spdf1$Indicator == "pop" & spdf1$Country == "US",]

但是可以按多边形属性进行子集 - 特别是labpt槽的纬线和长坐标（多边形的中心）？

Answer 1

由于我只对数据槽感兴趣，我的解决方案是使用apply提取labpt坐标，将生成的矩阵绑定到sp数据部分。 e.g：

my_df2 <- cbind(my_spdf@data, as.data.frame(t(sapply(slot(my_spdf, 'polygons'), 
                                                    function(i) slot(i, 'labpt')))))

然后使用传统的子集/过滤方法。