21--assign（）
assign函数可以通过变量名的字符串来赋值
> assign('a', 1:3)
> a
[1] 1 2 3
> b <- c('a')
> assign(b, 1:5)
> b
[1] "a"
> a
[1] 1 2 3 4 5
22--split（）
split（x，f）
- x 可以为向量或者数据框
- f 为对应的因子
- 函数以列表的形式返回
> a <- c(24,25,36,37)
> b <- c('q', 'w', 'q','w')
> split(a, b)
$q
[1] 24 36
$w
[1] 25 37
23--by（）
by（）函数与tapply（）相似，by（）可以用于数据框，而tapply不可以。
- by函数里面调用的函数 f 的对象是数据框，比如下例中的summary换为mean就不行。
> a <- c(24,25,36,37)
> b <- c('q', 'w', 'q','w')
> tapply(a, b, mean)
q w
30 31
> by(a, b, mean)
b: q
[1] 30
---------------------------------------------
b: w
[1] 31
> by(warpbreaks[, 1:2], warpbreaks[,"tension"], summary)
warpbreaks[, "tension"]: L
breaks wool
Min. :14.00 A:9
1st Qu.:26.00 B:9
Median :29.50
Mean :36.39
3rd Qu.:49.25
Max. :70.00
---------------------------------------------
warpbreaks[, "tension"]: M
breaks wool
Min. :12.00 A:9
1st Qu.:18.25 B:9
Median :27.00
Mean :26.39
3rd Qu.:33.75
Max. :42.00
---------------------------------------------
warpbreaks[, "tension"]: H
breaks wool
Min. :10.00 A:9
1st Qu.:15.25 B:9
Median :20.50
Mean :21.67
3rd Qu.:25.50
Max. :43.00
24--addmargins( )
函数addmargins（）可以计算数据框或者矩阵的边际值。
> a <- list(c(5,2,6,2,6,5,6),c('q','w','q','q','w','q','q'))
> b <- table(a)
> addmargins(b)
a.2
a.1 q w Sum
2 1 1 2
5 2 0 2
6 2 1 3
Sum 5 2 7
25--unique( )
函数unique（）返回 x 但是省去重复的数值
> x <- c(3:5, 11:8, 8 + 0:5)
> unique(x)
[1] 3 4 5 11 10 9 8 12 13