R中tapply函数

有时候，我们需要对组数据进行函数计算，怎么办？首先，创建一个分组因子用来识别每个对应的数据组；然后，使用R中tapply函数，它会把一个函数应用到每组数据。语法格式如下。
tapply(x, f, fun)
说明：x是一个向量，f是一个分组因子，fun是一个函数。函数返回一个对分组数据进行fun运算所得结果而构成的一个向量。
关于tapply函数，举例说明如下。
> data1 <- c(100, 200, 300, 400, 150, 180)
> sum(data1)
[1] 1330
> mean(data1)
[1] 221.6667
> f1 <- factor(c("A", "B", "A", "B", "A", "B"))
> tapply(data1, f1, sum)
A   B 
550 780 
> tapply(data1, f1, mean)
   A        B 
183.3333 260.0000 
> tapply(data1, f1, length)
A B 
3 3