R语言|使用@或者slot()读取SpatialPolygonsDataFrame类型数据

最新推荐文章于 2024-02-22 16:47:18 发布
最新推荐文章于 2024-02-22 16:47:18 发布
阅读量1.5k 收藏 3
点赞数 1
文章标签： r语言
版权声明：本文为博主原创文章，遵循 CC 4.0 BY-SA 版权协议，转载请附上原文出处链接和本声明。
本文链接：https://blog.csdn.net/qq_51621002/article/details/123709445
版权

首先读入shp文件：

LB<-readShapePoly("LondonBorough.shp",verbose = T)

可以看到LB的类型为：

> class(LB)
[1] "SpatialPolygonsDataFrame"
attr(,"package")
[1] "sp"

我们把LB显示出来：(太长了，这里把中间截掉了一部分)

> str(LB)
Formal class 'SpatialPolygonsDataFrame' [package "sp"] with 5 slots
  ..@ data       :'data.frame':	35 obs. of  15 variables:
  .. ..$ NAME      : Factor w/ 35 levels "Barking and Dagenham",..: 29 22 9 5 19 10 17 18 16 4 ...
  .. ..$ AREA_CODE : Factor w/ 3 levels "DIS","LBO","UTA": 1 2 2 2 2 2 2 2 2 2 ...
  .. ..$ DESCRIPTIO: Factor w/ 3 levels "District","London Borough",..: 1 2 2 2 2 2 2 2 2 2 ...
  .. ..$ FILE_NAME : Factor w/ 3 levels "BUCKINGHAMSHIRE_COUNTY",..: 1 2 2 2 2 2 2 2 2 2 ...
  .. ..$ NUMBER    : int [1:35] 7 3 6 9 12 14 18 20 24 26 ...
  .. ..$ NUMBER0   : int [1:35] 412 749 776 800 823 848 869 893 918 941 ...
  .. ..$ POLYGON_ID: int [1:35] 51574 50448 51330 50904 51138 50523 50851 51011 50515 50485 ...
  .. ..$ UNIT_ID   : int [1:35] 11693 11412 10896 10772 11489 11399 10807 11539 11391 11447 ...
  .. ..$ CODE      : Factor w/ 35 levels "00AA","00AB",..: 35 21 8 6 18 9 16 17 15 5 ...
  .. ..$ HECTARES  : num [1:35] 14127 3726 8650 15013 5659 ...
  .. ..$ AREA      : num [1:35] 0 0 0 0 60.8 ...
  .. ..$ TYPE_CODE : Factor w/ 1 level "AA": 1 1 1 1 1 1 1 1 1 1 ...
  .. ..$ DESCRIPT0 : Factor w/ 1 level "CIVIL ADMINISTRATION AREA": 1 1 1 1 1 1 1 1 1 1 ...
  .. ..$ TYPE_COD0 : Factor w/ 0 levels: NA NA NA NA NA NA NA NA NA NA ...
  .. ..$ B_Name    : Factor w/ 35 levels "Barking and Dagenham",..: 29 22 9 5 19 10 17 18 16 4 ...
  .. ..- attr(*, "data_types")= chr [1:15] "C" "C" "C" "C" ...
  ..@ polygons   :List of 35 #说明一共有35个polygons 在这里只粘贴保留了3个
  .. ..$ :Formal class 'Polygons' [package "sp"] with 5 slots
  .. .. .. ..@ Polygons :List of 1
  .. .. .. .. ..$ :Formal class 'Polygon' [package "sp"] with 5 slots
  .. .. .. .. .. .. ..@ labpt  : num [1:2] 505184 179204
  .. .. .. .. .. .. ..@ area   : num 0.19
  .. .. .. .. .. .. ..@ hole   : logi FALSE
  .. .. .. .. .. .. ..@ ringDir: int 1
  .. .. .. .. .. .. ..@ coords : num [1:4, 1:2] 505183 505184 505186 505183 179201 ...
  .. .. .. ..@ plotOrder: int 1
  .. .. .. ..@ labpt    : num [1:2] 505184 179204
  .. .. .. ..@ ID       : chr "0"
  .. .. .. ..@ area     : num 0.19
  .. ..$ :Formal class 'Polygons' [package "sp"] with 5 slots
  .. .. .. ..@ Polygons :List of 1
  .. .. .. .. ..$ :Formal class 'Polygon' [package "sp"] with 5 slots
  .. .. .. .. .. .. ..@ labpt  : num [1:2] 519298 166820
  .. .. .. .. .. .. ..@ area   : num 37261175
  .. .. .. .. .. .. ..@ hole   : logi FALSE
  .. .. .. .. .. .. ..@ ringDir: int 1
  .. .. .. .. .. .. ..@ coords : num [1:1633, 1:2] 521672 521672 521662 521639 521630 ...
  .. .. .. ..@ plotOrder: int 1
  .. .. .. ..@ labpt    : num [1:2] 519298 166820
  .. .. .. ..@ ID       : chr "1"
  .. .. .. ..@ area     : num 37261175
  .. ..$ :Formal class 'Polygons' [package "sp"] with 5 slots
  .. .. .. ..@ Polygons :List of 1
  .. .. .. .. ..$ :Formal class 'Polygon' [package "sp"] with 5 slots
  .. .. .. .. .. .. ..@ labpt  : num [1:2] 533290 163541
  .. .. .. .. .. .. ..@ area   : num 86503635
  .. .. .. .. .. .. ..@ hole   : logi FALSE
  .. .. .. .. .. .. ..@ ringDir: int 1
  .. .. .. .. .. .. ..@ coords : num [1:2635, 1:2] 533702 533709 533704 533694 533680 ...
  .. .. .. ..@ plotOrder: int 1
  .. .. .. ..@ labpt    : num [1:2] 533290 163541
  .. .. .. ..@ ID       : chr "2"
  .. .. .. ..@ area     : num 86503635
  ..@ plotOrder  : int [1:35] 4 8 7 11 3 17 16 21 5 19 ...
  ..@ bbox       : num [1:2, 1:2] 503568 155851 561958 200934
  .. ..- attr(*, "dimnames")=List of 2
  .. .. ..$ : chr [1:2] "x" "y"
  .. .. ..$ : chr [1:2] "min" "max"
  ..@ proj4string:Formal class 'CRS' [package "sp"] with 1 slot
  .. .. ..@ projargs: chr NA
  ..$ comment: chr "FALSE"

①第一行Formal class 'SpatialPolygonsDataFrame' [package "sp"] with 5 slots

中的5个“插槽”就是下面位于同一级的data、polygons、plotOrder、bbox、proj4string；

②..@ polygons   :List of 35

说明一共有35个polygons （在这里只粘贴保留了3个），也就是说，length(LB@polygons)=35

> length(LB@polygons)
[1] 35

关于@符号

其实在刚刚我们已经用了@符号来进行拆解，实际上就是在进行像俄罗斯套娃一样的操作，用一层@不够就再多加一层

 

现在我们来看一下刚刚使用@之后的结果(同样是只粘贴保留了3个)

> str(LB@polygons)
List of 35
 $ :Formal class 'Polygons' [package "sp"] with 5 slots
  .. ..@ Polygons :List of 1
  .. .. ..$ :Formal class 'Polygon' [package "sp"] with 5 slots
  .. .. .. .. ..@ labpt  : num [1:2] 505184 179204
  .. .. .. .. ..@ area   : num 0.19
  .. .. .. .. ..@ hole   : logi FALSE
  .. .. .. .. ..@ ringDir: int 1
  .. .. .. .. ..@ coords : num [1:4, 1:2] 505183 505184 505186 505183 179201 ...
  .. ..@ plotOrder: int 1
  .. ..@ labpt    : num [1:2] 505184 179204
  .. ..@ ID       : chr "0"
  .. ..@ area     : num 0.19
 $ :Formal class 'Polygons' [package "sp"] with 5 slots
  .. ..@ Polygons :List of 1
  .. .. ..$ :Formal class 'Polygon' [package "sp"] with 5 slots
  .. .. .. .. ..@ labpt  : num [1:2] 519298 166820
  .. .. .. .. ..@ area   : num 37261175
  .. .. .. .. ..@ hole   : logi FALSE
  .. .. .. .. ..@ ringDir: int 1
  .. .. .. .. ..@ coords : num [1:1633, 1:2] 521672 521672 521662 521639 521630 ...
  .. ..@ plotOrder: int 1
  .. ..@ labpt    : num [1:2] 519298 166820
  .. ..@ ID       : chr "1"
  .. ..@ area     : num 37261175
 $ :Formal class 'Polygons' [package "sp"] with 5 slots
  .. ..@ Polygons :List of 1
  .. .. ..$ :Formal class 'Polygon' [package "sp"] with 5 slots
  .. .. .. .. ..@ labpt  : num [1:2] 533290 163541
  .. .. .. .. ..@ area   : num 86503635
  .. .. .. .. ..@ hole   : logi FALSE
  .. .. .. .. ..@ ringDir: int 1
  .. .. .. .. ..@ coords : num [1:2635, 1:2] 533702 533709 533704 533694 533680 ...
  .. ..@ plotOrder: int 1
  .. ..@ labpt    : num [1:2] 533290 163541
  .. ..@ ID       : chr "2"
  .. ..@ area     : num 86503635

可以看到，这时候我们已经把最外面的一层拿掉了

再来看一下加两层@的结果

> str(LB@polygons[[1]]@Polygons[[1]])
Formal class 'Polygon' [package "sp"] with 5 slots
  ..@ labpt  : num [1:2] 505184 179204
  ..@ area   : num 0.19
  ..@ hole   : logi FALSE
  ..@ ringDir: int 1
  ..@ coords : num [1:4, 1:2] 505183 505184 505186 505183 179201 ...

注意这里，由于LB@polygons一共有35个，所以需要在后面用[[]]来注明要拆解的是哪一个；

LB@polygons[[1]]@Polygons[[1]]最后也要注明[[1]]是因为LB@polygons[[1]]@Polygons同样可能有多个，比如刚刚没有粘贴上的最后一个

> str(LB@polygons[[35]])
Formal class 'Polygons' [package "sp"] with 5 slots
  ..@ Polygons :List of 2 #注意这里！
  .. ..$ :Formal class 'Polygon' [package "sp"] with 5 slots
  .. .. .. ..@ labpt  : num [1:2] 555427 182164
  .. .. .. ..@ area   : num 2.56
  .. .. .. ..@ hole   : logi FALSE
  .. .. .. ..@ ringDir: int 1
  .. .. .. ..@ coords : num [1:4, 1:2] 555415 555478 555387 555415 182188 ...
  .. ..$ :Formal class 'Polygon' [package "sp"] with 5 slots
  .. .. .. ..@ labpt  : num [1:2] 557201 182784
  .. .. .. ..@ area   : num 2.56
  .. .. .. ..@ hole   : logi FALSE
  .. .. .. ..@ ringDir: int 1
  .. .. .. ..@ coords : num [1:6, 1:2] 557188 557184 557232 557197 557188 ...
  ..@ plotOrder: int [1:2] 2 1
  ..@ labpt    : num [1:2] 557201 182784
  ..@ ID       : chr "34"
  ..@ area     : num 5.13

再加一层

> str(LB@polygons[[35]]@Polygons[[1]]@coords)
 num [1:4, 1:2] 555415 555478 555387 555415 182188 ...

可以看到，结果和我们在上面看到的一样，说明拆解的结果正确

这样用法就非常清楚了

slot的用法

最后补充一下slot()的用法

> slot(LB@polygons[[1]],"Polygons")
[[1]]
An object of class "Polygon"
Slot "labpt":
[1] 505184.2 179204.2

Slot "area":
[1] 0.1900001

Slot "hole":
[1] FALSE

Slot "ringDir":
[1] 1

Slot "coords":
         [,1]     [,2]
[1,] 505182.8 179201.1
[2,] 505184.1 179204.0
[3,] 505185.8 179207.5
[4,] 505182.8 179201.1

其实slot()作用和@符号相似，但是用这个函数提取出来的变量类型都为list，后续在使用的时候必须加上序号，即使提取出来的值只有一个

但是在需要多层@拆解时，可以先把一部分的拆解结果赋给某一个变量，在后面可以简化代码，比如：

> a<-slot(LB@polygons[[1]],"Polygons")
> class(a)
[1] "list"
> a[[1]]@coords #在这里就不再需要写前面长长的东西了，而直接写a[[1]](注意后面的序号)
         [,1]     [,2]
[1,] 505182.8 179201.1
[2,] 505184.1 179204.0
[3,] 505185.8 179207.5
[4,] 505182.8 179201.1

一个努力敲代码的小透明
关注
  • 1
    点赞
  • 踩
  • 3
    收藏
    觉得还不错? 一键收藏
  • 0
    评论
r语言 slot_R语言中%||%是什么意思？
weixin_36194102的博客
01-25 600
不知道大家有没有在R代码中见到过这样的运算符号%||%，看上去有点像或，却又不是。%||%实际上是rlang这个包中的一个函数，我们来看看它的定义rlang::`%||%` function (x, y) { if (is_null(x)) y else x }看到这个定义我相信大多数人都能够明白了，也就是这个函数有两个参数，当第一个参数x不为NULL的时候，返...
R-什么是slot插槽？
u012543538的专栏
12-23 3411
Slots are linked to S4 objects. A slot can be seen as a part, element or a "property" of an object. Say you have a car object, then you can have the slots "price", "number of doors", "type of engine",
java多边形合并_R：根据多边形合并两个SpatialPolygonsDataFrame
weixin_29534399的博客
02-28 513
我有2个SpatialPolygonsDataFrames(data1和data2) . 多边形代表建筑物 . data1是所有建筑物，data2是一些特定的建筑物 .我想将data2 @ data中的所有变量添加到data1 @ data(对于属于SpatialPolygonsDataFrame的建筑物) .我已经找到了一种通过多边形聚合或合并两个SpatialPolygonsDataFram...
R语言【sp】——创建类 SpatialPolygons或SpatialPolygonsDataFrame的对象：Polygon()，Polygons()
最新发布
whitedrogen的博客
02-22 625
Packagesp。
slot
Fairy的博客
06-05 526
Vue的3个API：props传数据，events触发事件，slot内容分发； 需要让组件组合使用，混合父组件的内容和子组件的模板是，就需要slot，称为内容分发； 单个slot用法： 在子组件内使用slot可以开启一个卡槽，在父组件模板里，插入在子组件标签内的所有内容将替代子组件slot标签以及他的内容: <div id="app"> <child-compo...
Python库 | uwosh.timeslot-1.4.8.tar.gz
04-18
资源分类：Python库 所属语言：Python 资源全名：uwosh.timeslot-1.4.8.tar.gz 资源来源：官方 安装方法：https://lanzao.blog.csdn.net/article/details/101784059
详解vue.js数据传递以及数据分发slot
11-28
一、组件间的数据传递 1.父组件获取子组件的数据　 *子组件把自己的数据，发送到父级 *vm.$emit(事件名,数据); *v-on: @ 示例用法：当点击send按钮的时候，“111”变成“我是子组件的数据” <!DOCTYPE html> &lt...
详解vue使用插槽分发内容slot的用法
10-17
主要介绍了vue使用插槽分发内容slot的用法，文中通过示例代码介绍的非常详细，对大家的学习或者工作具有一定的参考学习价值，需要的朋友们下面随着小编来一起学习学习吧
vue组件数据传递、父子组件数据获取，slot,router路由功能示例
10-17
主要介绍了vue组件数据传递、父子组件数据获取，slot,router路由功能,结合实例形式分析了vue.js组件数据传递、路由相关概念、原理及相关操作技巧,需要的朋友可以参考下
R语言空间分析功能简介
weixin_34308389的博客
07-01 254
2019独角兽企业重金招聘Python工程师标准>>> ...
R对象属性与槽
u013395544的专栏
11-04 1768
    R的S4对象(S3对象没有明确类型定义，没有槽)同时具有属性和槽，槽是在类定义时定义的，是类的成员的变量。而属性是一种从外部附加的，可以附加在任何对象上，可被视为某种"标签"。如对象的class属性值，标识了对象所属的类别，可视为class标签标识了对象的类，class属性可以在外部被修改（个人观点:R将对象所属类别信息，暴露在了外部，并可以任意修改，R对象对类并没有很强的归属感,S4对象...
slot介绍
朝萌的博客
01-13 3711
感谢博主启发 https://segmentfault.com/a/1190000012996217 1、作用 插槽用于决定将所携带的内容，插入到指定的某个位置，从而使模板分块，具有模块化的特质和更大的重用性 2、使用 单个插槽 | 默认插槽 | 匿名插槽（该节点不携带任何其他特征信息） 父组件提供样式和内容 //子组件模板 &lt;div&gt; ...
sf | 读取和保存空间矢量数据
R语言学堂
02-23 8729
R语言储存矢量数据（.shp）目前有两种规范：第一种规范来自sp工具包，数据以Spatial*DataFrame形式储存，执行的标准来自Esri shapefile的相关方法，其定义的数据...
细致讲解slot插槽的使用
五花漏的博客
11-19 2万+
彻底搞懂slot插槽，图文详解1、什么是插槽Vue 实现了一套内容分发的 API，将 `` 元素作为承载分发内容的出口。插槽实质是对子组件的扩展，通过``插槽向组件内部指定位置传递内容。slot的出现是为了父组件可以堂而皇之地在子组件中加入内容。插槽显不显示、怎样显示是由父组件来控制的，而插槽在哪里显示就由子组件来进行控制。2、slot 与 props 的区别3、插槽的使用（1）匿名插槽（单个插槽、默认插槽）（2）具名插槽（3）作用域插槽因为父级模板里的所有内容都是在父级作用域中编译的；子级模板里的所有内容
QThread 的使用方法
LaineGates的专栏
08-01 1万+
近日，使用QThread，一些问题百思不得其解，看过大牛的文章，恍然大悟啊。 原文 http://hi.baidu.com/dbzhang800/item/c14c97dd15318d17e1f46f41 起源 昨天不小心看到Qt开发人员( Bradley T. Hughes)Blog中的一片文章 you are-doing-it-wrong 。 结果看得头昏脑胀：好歹也自学了近
R语言包相关命令
艾@七的专栏
06-04 2395
R的包（package）通常有两种： 1 binary package：这种包属于即得即用型（ready-to-use），但是依赖与平台，即Win和Linux平台下不同。 2 Source package: 此类包可以跨平台使用，但用之前需要处理或者编译（compiled）。 .libPaths()：查看包的安装目录 library()：查看已经安装的包目录 installed.pack
R语言面向对象指南
九茶
09-21 1万+
原文链接：OO field guide 。 面向对象指南：这一章主要介绍怎样识别和使用 R 语言的面向对象系统（以下简称 OO）。R 语言主要有三种 OO 系统（加上基本类型）。本指南的目的不是让你精通 R 语言的 OO，而是让你熟悉各种系统，并且能够准确地区分和使用它们。 OO 最核心的就是类和方法的思想，类在定义对象的行为时主要是通过对象的属性以及它和其它类之间的关系。根据类的输入不同，类对
Qt5学习之路（vs2012下创建一个QT应用程序）2013-10-14
ithome
10-14 571
刚开始学习QT在网上找的资料基本都是使用QT Create进行开发的。VS下开发的学习资料感觉很少很难找的到。视频教程也基本没看到过貌似。 因为我们研发中心是使用MFC进行开发开发工具是VS2010 .使用QT开发的话基本我们不会再使用QT Create了。所以把自己的学习的一些资料整理一下贴出。 本文主要熟悉一下信号/槽如何在QT设计师中使用。本例是QT官方文档的一个例子。为了明白创建的...
Vue中slot的使用（通俗易懂）
热门推荐
zhouzuoluo的博客
06-01 16万+
在vue中使用slot插槽个人理解：是对组件的扩展，通过slot插槽向组件内部指定位置传递内容，通过slot可以父子传参；开发背景：正常情况下,&lt;Child&gt;&lt;span style=”color:red;”&gt;hello world&lt;/span&gt;&lt;/Child&gt;在组件标签Child中的span标签会被组件模板template内容替换掉，当想让组件标签C...
如何使用timeslot读取多张15639
03-28
5. 将读取的图像数据转换为numpy数组，并使用reshape()函数将每张图像变成timeslot行的矩阵： ```python data = np.array(data) data = data.reshape((-1, timeslot, data.shape[1], data.shape[2])) ``` 现在，您...

“相关推荐”对你有帮助么？

  • 非常没帮助
  • 没帮助
  • 一般
  • 有帮助
  • 非常有帮助
提交
评论
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

当前余额3.43元 前往充值 >
需支付：10.00元
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付元
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明：

1.余额是钱包充值的虚拟货币，按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载，可以购买VIP、付费专栏及课程。

余额充值