# 创建简单向量

l <- c(2, 2, 1, 3, 8)

# [1] 2 2 1 3 8

# 创建一个1至5的向量

# :  -->  至

# 1:5  -->  从1到5的5个整数

n <- 1:5

# [1] 1 2 3 4 5

# 创建向量,初始默认为逻辑值FALSE

v <- vector(length = 4)

# [1] FALSE FALSE FALSE FALSE

# 切片运算

# 注意R中的序号1就表示第1个，而不是2个，要与python相区别

n[1:4]

# [1] 1 2 3 4

# 基本运算

# 等长

a1 <- l + n

# [1]  3  4  4  7 13

a2 <- l / n

# [1] 2.0000000 1.0000000 0.3333333 0.7500000 1.6000000

# 不等长

# 较少元素的向量在运算完一遍以后将会重新对应较多元素的向量中的剩余元素逐个再从头运算一次

n <- 1:5

l <- c(1,1,1,1,1,2,2,2,2,2)

a <- n * l

# [1]  1  2  3  4  5  2  4  6  8 10

# 建立从2到10，间隔为2的等差数列

n <- seq(from=2, to=10, by=2）  # 或 n <- seq(2, 10, 2)

# [1]  2  4  6  8 10

# 把1到4赋值给x

x=1:4

# 把向量x重复2次

rep(x,2)

# 等价于 rep(1:4,2)

# [1] 1 2 3 4 1 2 3 4

# 把“male”和“female”和2各重复5次

# each=5

rep(c("male","female",2),each=5)

# 等价于  rep(c("male","female",2),c(5,5,5))

# 次数步长可自定义

"""

 [1] "male"   "male"   "male"   "male"   "male"   "female" "female" "female"

 [9] "female" "female" "2"      "2"      "2"      "2"      "2"

"""

# times=5

rep(c("male","female",2),5)

"""

[1] "male"   "female" "2"      "male"   "female" "2"      "male"   "female"

 [9] "2"      "male"   "female" "2"      "male"   "female" "2"

"""

# 也可设置最大长度

# length.out也可以简写为length或len

rep(c("male","female",2),5,length.out=12)

"""

 [1] "male"   "female" "2"      "male"   "female" "2"      "male"   "female"

 [9] "2"      "male"   "female" "2"

"""

# each和times可同时使用

rep(c(3,5,7),each=3,times=2)

# [1] 3 3 3 5 5 5 7 7 7 3 3 3 5 5 5 7 7 7

删除向量

# rm(向量名)

rm(x)

访问向量中的元素

# 创建10个元素向量

v <- vector(length = 10)

# [1] FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE

# 访问第1个元素，赋值为1

v[1] <- 1

# [1] 1 0 0 0 0 0 0 0 0 0

# 访问第2~4个元素，赋值为2，3，4

v[2:4] <- c(2,3,4)

# [1] 1 2 3 4 0 0 0 0 0 0

# 生成一个取值为5~9的序列给向量w

w <- seq(5,9,1)

# [1] 5 6 7 8 9 

# 访问第5~9和第10个元素，赋值为5~10

# c(w, 10)的访问方式，可以有效实现多个向量的合并

v[c(5:9,10)] <- c(w,10)

# [1]  1  2  3  4  5  6  7  8  9 10

v

# [1]  1  2  3  4  5  6  7  8  9 10

# 直接指定位置

w <- (2:4)

# [1] 2 3 4

v[w]

# [1] 2 3 4

# 利用逻辑型位置向量来访问

w <- c(T,F,F,T,F,F,F,F,F,F)

# 访问v中位置向量w取值为TRUE位置上的元素

v[w]

# [1] 1 4

# 访问除了第1个元素以外的元素

v[-1]

# [1]  2  3  4  5  6  7  8  9 10 

# # 访问除了2~4元素以外的元素

v[-(2:4)]

# [1]  1  5  6  7  8  9 10

v[-c(5:9,10)]

# [1] 1 2 3 4

w

# [1]  TRUE FALSE FALSE  TRUE FALSE FALSE FALSE FALSE FALSE FALSE

v[-w]

# [1]  2  3  4  5  6  7  8  9 10