R 语言入门

# 创建向量
a <-c(1, 2, 3, 4, 5, 6)
b <-c("one", "two", "three")
c <-c(TRUE, FALSE, TRUE, TRUE, FALSE)

> 5:1
[1] 5 4 3 2 1

> 2*(1:5)
[1]  2  4  6  8 10

> rep(1,9)
[1] 1 1 1 1 1 1 1 1 1

> rep(c(1,0,4), each=3)
[1] 1 1 1 0 0 0 4 4 4

> seq(1,3, by=0.2)
> seq(from=1, to=3, by=0.2)
 [1] 1.0 1.2 1.4 1.6 1.8 2.0 2.2 2.4 2.6 2.8 3.0
 
> seq(3,1, by=-0.2)
 [1] 3.0 2.8 2.6 2.4 2.2 2.0 1.8 1.6 1.4 1.2 1.0
> seq(3,1, by=0.2)
Error in seq.default(3, 1, by = 0.2) : wrong sign in 'by' argument

> seq(3,1.1)
[1] 3 2

# 向量索引
a[2]  # 第二个元素    
# [1] 2
a[-2] # 删除第二个元素，a 还是原来的 a
# [1] 1 3 4 5 6
a[c(2:4)] # 取出第二到第四个元素
# [1] 2 3 4

#创建矩阵
mymat <- matrix(c(1:10), nrow=2, ncol=5, byrow=TRUE)

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

#矩阵索引
mymat[2,] #取第二行
mymat[,2] #取第二列
mymat[1,5] #第一行第五列的元素

#创建数组
myarr <- array(c(1:12),dim=c(2,3,2))

, , 1

     [,1] [,2] [,3]
[1,]    1    3    5
[2,]    2    4    6

, , 2

     [,1] [,2] [,3]
[1,]    7    9   11
[2,]    8   10   12

dim(myarr) # 取矩阵或数组的维度
# [1] 2 3 2
myarr[1,2,1] # 取第一个矩阵的第一行第二列
# [1] 3

# 创建数据框
kids <- c("Wang", "Li")
age <- c("18", "16")
df <- data.frame(kids, age)

  kids age
1 Wang  18
2   Li  16

#数据框索引
df[1,]   # 第一行
df[,2]   # 第二列
df[1:2,1:2]   # 前两行，前两列
df$age   # 根据列名称

> df$age
[1] 18 16
Levels: 16 18

#数据框常用函数
str(df)   # 数据框的结构

> str(df)
'data.frame':	2 obs. of  2 variables:
 $ kids: Factor w/ 2 levels "Li","Wang": 2 1
 $ age : Factor w/ 2 levels "16","18": 2 1

rownames(df)   # 行名称
colnames(df)   # 列名称

> rownames(df)
[1] "1" "2"
> colnames(df)
[1] "kids" "age"