向量、矩阵、数组

向量、矩阵、数组，都是在使用R中常用到的

1.1向量

使用c函数可以拼接数值和向量

c(1, 1:3, c(5, 8), 13)#不同值被拼接成单一向量
[1] 1 1 2 3  5  8 13

除此之外用vector函数可以创建一个指定类型和长度的矢量。这个矢量的值可以是0，FALSE，空的字符串，等等。

> vector('numeric', 5)
[1] 0 0 0 0 0
> vector('complex', 5)
[1] 0+0i 0+0i 0+0i 0+0i 0+0i
> vector('logical', 5)
[1] FALSE FALSE FALSE FALSE FALSE
> vector('character', 5)
[1] "" "" "" "" ""

需要注意的是“空值”并不是NA值，空值表示为NULL。
同样使用下面的命令与上面命令等价：

> numeric(5)
[1] 0 0 0 0 0
> complex(5)
[1] 0+0i 0+0i 0+0i 0+0i 0+0i
> logical(5)
[1] FALSE FALSE FALSE FALSE FALSE
> character(5)
[1] "" "" "" "" ""

1.2序列

除了冒号来创建序列之外，还有几个更加简单快速的函数来创建序列。

1.2.1

seq.int函数可以创建一个序列。序列的范围有两个数指定，原理与冒号相同。

> seq.int(3,12)
 [1]  3  4  5  6  7  8  9 10 11 12

而seq.int函数比冒号方便的地方在于，它可以指定步长，

> seq.int(3,12, 2)
[1]  3  5  7  9 11

1.2.2

seq_len函数
这个函数会创建一个从1开始到指定输入值的序列，虽然有时候不如直接用冒号方便但是当输入值为0时：

> 1:0
[1] 1 0
> seq_len(0)
integer(0)

1.2.3

seq_along函数
此函数会创建一个从1开始，长度为输入值的序列

> pp <- c('peter', 'piper', 'picked', 'a', 'peck', 'of', 'pickled', 'peppers')
> for (i in seq_along(pp)) {
+ print(pp[i])
}
[1] "peter"
[1] "piper"
[1] "picked"
[1] "a"
[1] "peck"
[1] "of"
[1] "pickled"
[1] "peppers"

1.2.4 长度

每一个向量都有长度，是一个非负整数（可以为零），可以通过length函数查询，NA也会被计入长度。
值得一提的是字符串长度，函数length得到的是字符串的数目，而每个字符串中字符的长度用函数nchar可以得到。

> sn <- c('a', 'dsad', 'dsajdsadsadas', 'fgigdfsa')
> length(sn)
[1] 4
> nchar(sn)
[1]  1  4 13  8

1.2.5 命名

R中的命名有点像python中的字典，即name=value来表示

> x <- c(apple = 1, banbana = 2, "kiwi fruit" = 3, 4)
> x
     apple    banbana kiwi fruit            
         1          2          3          4 

当然也可以在创建向量之后对其赋值。

> x <- 1:4
> names(x) <- c('apple', 'banana', "kiwi fruit")
> x
     apple     banana kiwi fruit       <NA> 
         1          2          3          4 

name函数可以用来取的向量的名称。

1.3矩阵与数组

1.3.1 创建矩阵和数组

使用array函数可以创建数组，它需要传入两个向量（维度和值）来作为参数。另外，可以为每个维度命名。

test <- array(
  1:24,
  dim = c(4, 3, 2),
  dimnames = list(
    c('one', 'two', 'three', 'four'),
    c('ein', 'zwei', 'drei'),
    c('un', 'deux')
  )
)
> test
, , un

      ein zwei drei
one     1    5    9
two     2    6   10
three   3    7   11
four    4    8   12

, , deux

      ein zwei drei
one    13   17   21
two    14   18   22
three  15   19   23
four   16   20   24

创建矩阵类似于创建数组，其实矩阵就是一维的数组。

> test<- matrix(
+   1:24,
+   nrow = 4, ncol = 3,  
+   dimnames = list(
+     c('one', 'two', 'three', 'four'), 
+     c('ein', 'zwei', 'drei') 
+  )
+ )
> test
      ein zwei drei
one     1    5    9
two     2    6   10
three   3    7   11
four    4    8   12

1.3.2行、列、维度

对于矩阵和数组，dim函数会返回其维度的整数值向量。

> dim(test)
[1] 4 3 2
> dim(test)
[1] 4 3

1.3.3合并矩阵

使用cbind和rbind两个函数可以按行或者按列来合并矩阵。

> test1 <- matrix(seq.int(2, 24, 2), nrow = 4)
> test2 <- test
> cbind(test1, test2)
              ein zwei drei
one   2 10 18   1    5    9
two   4 12 20   2    6   10
three 6 14 22   3    7   11
four  8 16 24   4    8   12
> rbind(test1, test2)
      ein zwei drei
        2   10   18
        4   12   20
        6   14   22
        8   16   24
one     1    5    9
two     2    6   10
three   3    7   11
four    4    8   12

代码皆来自或参考《学习R》