R中的sweep函数

base包中的sweep函数是处理统计量的工具，一般可以结合apply()函数来使用。当我们我们需要将apply()统计出来的统计量代回原数据集去做相应操作的时候就可以用到sweep()。

函数的参数

sweep(x, MARGIN, STATS, FUN = "-", check.margin = TRUE, ...)
x:即要处理的原数据集
MARGIN：对行或列，或者数列的其他维度进行操作，与apply的用法一样
STATS：需要对原数据集操作用到的统计量
FUN：操作需要用到的四则运算，默认为减法"-"，当然也可以修改成"+","*","/"，即加、乘、除
check.margin:是否需要检查维度是否适宜的问题，默认为TRUE。
……

下面我们结合几个具体的例子来看

#创建一个4行3列的矩阵M = matrix( 1:12, ncol=3)

1.每一行都减去这一行的均值

#方法一，通过rowMeans函数来计算每一行的均值
sweep(M,1,rowMeans(M))
​
#方法二，通过apply函数来计算每一行的均值，MARGIN=1，对行做操作
sweep(M,1,apply(M,1,mean))

2.每一行列都减去这一列的均值

#方法一，通过colMeans函数来计算每一列的均值
sweep(M,2,colMeans(M))
​
#方法二，通过apply函数来计算每一列的均值，MARGIN=2，对列做操作
sweep(M,2,apply(M,2,mean))

3.四行分别加上1，2，3，4

sweep (M, 1, c(1: 4), "+")

参考资料：
R中的sweep函数​