R语言属性知识点总结及实例

属性(attribute):R中对象具备的特性

特性描述了所代表的内容以及R解释该对象的方式

很多时候两个对象之间的唯一差别在于它们的属性不同

常见的属性

查询R中对象的属性的标准方法:

对于对象x和属性a:一般来说可以通过a(x)来查询x的a属性

大多数情况下,R中都有一个现成的获取对象属性或者改变对象属性的函数

(这种改变对象属性的方法会在当前环境中覆盖对象的旧属性,但不会影响闭环境中的变量属性)

m = matrix(data = 1:12, nrow = 4, ncol = 3,
     dimnames = list(c("r1", "r2", "r3", "r4"),
             c("c1", "c2", "c3")))

通过attributes函数可以获得一个包含对象所有属性的列表

> attributes(m)
$dim
[1] 4 3

$dimnames
$dimnames[[1]]
[1] "r1" "r2" "r3" "r4"

$dimnames[[2]]
[1] "c1" "c2" "c3"

> dim(m)
[1] 4 3
> dimnames(m)
[[1]]
[1] "r1" "r2" "r3" "r4"

[[2]]
[1] "c1" "c2" "c3"

> colnames(m)
[1] "c1" "c2" "c3"
> rownames(m)
[1] "r1" "r2" "r3" "r4"

可以通过改变属性将矩阵转化为其他类的对象

例如移除对象的维度属性

> dim(m) <- NULL
> m
[1] 1 2 3 4 5 6 7 8 9 10 11 12
> class(m)
[1] "integer"
> typeof(m)
[1] "integer"

创建一个数组

> (a <- array(1:12, dim = c(3:4)))
  [,1] [,2] [,3] [,4]
[1,]  1  4  7  10
[2,]  2  5  8  11
[3,]  3  6  9  12

定义一个包含相同对象的向量

> (b <- 1:12)
[1] 1 2 3 4 5 6 7 8 9 10 11 12

问题:在R总这两个对象等价吗?

> a == b
  [,1] [,2] [,3] [,4]
[1,] TRUE TRUE TRUE TRUE
[2,] TRUE TRUE TRUE TRUE
[3,] TRUE TRUE TRUE TRUE

数组的每个元素反映的是对两个对象个元素比较的结果

R中all.equal函数

用来比较两个对象的数据和维度一甄别两个对象是否近乎相同,若不相同则会返回其原因

> all.equal(a, b)
[1] "Attributes: < Modes: list, NULL >"          "Attributes: < Lengths: 1, 0 >"            
[3] "Attributes: < names for target but not for current >" "Attributes: < current is not list-like >"      
[5] "target is matrix, current is numeric"

若只是检查两个对象是不是完全一致,但不关心原因可以使用identical函数

> identical(a, b)
[1] FALSE

类

对于简单类型,其类和类型是有紧密联系的

对于符合型对象,两者则可能不同

有时候,对象的类会随着属性列出.

不过,对于确定的类型(比如矩阵和数组),类是隐藏的.

可以用class函数来确定对象的类

可以用typeof函数查看对象的基本类型

可以改变R对象所属的类.

例如,因子型向量转换为整型数组,整型数组,转换为因子

> (eye.colors <- factor(c("brown", "blue", "blue", "green", "brown", "brown", "brown")))
[1] brown blue blue green brown brown brown
Levels: blue brown green
> (eye.colors.integer.vector <- unclass(eye.colors))
[1] 2 1 1 3 2 2 2
attr(,"levels")
[1] "blue" "brown" "green"

> v <- as.integer(c(1, 1, 1, 2, 1, 1, 2, 2, 3, 1))
> levels(v) <- c("what", "who", "why")
> class(v) <- "factor"
> v
[1] what what what who what what who who why what
Levels: what who why

在调用class函数或者typedef函数时,对于有些对象,需要对其进行引用以防止其在调用时被执行

例如:想要查询符号x,而不是x所指向的对象的类型

> class(quote(v))
[1] "name"
> typeof(quote(v))
[1] "symbol"

但并不是所有类型的对象都可以采用该操作

例如:R中的any对象,...对象,字符串对象和允诺对象不能被隔离

(查看允诺对象的类型时会要求执行该允诺对象,而这一过程会把它转换为普通对象,从而使我们无法查询到其类型信息)

来源：https://www.kancloud.cn/sacomplex/rlanguage/316837