apply函数

R函数很有趣的一个特性，就是它们可以应用到一系列的数据对象
上。以mean函数为例子看一下。

> set.seed(1234)
> dt <- runif(20, 1, 20)
> mt <- matrix(dt, nrow = 4, ncol = 5)
> df <- as.data.frame(mt)
> 
> mean(dt)  #作用于向量
[1] 9.966671
> mean(mt)  #作用于矩阵
[1] 9.966671
> mean(dt)  #作用于数据框
[1] 9.966671

apply函数是apply函数家族的成员之一，可以将R函数作用到作用到多种数据结构的不同维度上。而另外一些成员，lapply() 和sapply() 则可将函数应用到列表（list）上。
apply()函数的使用格式为：

apply(x, MARGIN, FUN, ...)

其中， x 为数据对象， MARGIN 是维度的下标， FUN 是由你指定的函数， 而...则包括了任何想传递给FUN的参数。 在矩阵或数据框中， MARGIN=1表示行，MARGIN=2表示列。

还是以刚才的数据为例子，将mean函数分别作用于数据框的行和列维度。

> dt <- runif(20, 1, 20)
> mt <- matrix(dt, nrow = 4, ncol = 5)
> df <- as.data.frame(mt)
> df
         V1        V2       V3        V4       V5
1  3.160365 17.357392 13.65559  6.371938 6.438242
2 12.823689 13.165902 10.77077 18.545236 6.069595
3 12.576220  1.180419 14.17823  6.554001 4.547733
4 12.844209  5.418460 11.35452 16.908617 5.412292

> apply(df, 1, mean)   #作用于数据框的行
[1]  9.396706 12.275039  7.807322 10.387620
> apply(df, 2, mean)   #作用于数据框的列
       V1        V2        V3        V4        V5 
10.351121  9.280543 12.489780 12.094948  5.616966