r - 清除 colMeans 和 rowMeans

Question

要分别从列、行和观察中清除 colMeans、rowMeans 和 mean，我使用以下代码:

a <- matrix(data=seq(from=2, to=60, by=2), nrow=6, ncol=5, byrow=FALSE)
b <- matrix(data=rep(colMeans(a), nrow(a)), nrow=nrow(a), ncol=ncol(a), byrow=TRUE)
c <- matrix(data=rep(rowMeans(a), ncol(a)), nrow=nrow(a), ncol=ncol(a), byrow=FALSE)
d <- matrix(data=rep(mean(a), nrow(a)*ncol(a)), nrow=nrow(a), ncol=ncol(a), byrow=FALSE)
e <- a-b-c-d

colMeans 可以用这个命令扫掉

a1 <- sweep(a, 2, colMeans(a), "-")

是否有任何单个命令可以清除 colMeans、rowMeans 和 mean？提前致谢。

Answer 1

你怎么看e在这个例子中应该是什么样子？也许你的线路应该是 e <- a-b-c+d以便 e均值为零。

以下代码产生与使用 b 计算相同的结果, c , 和 d (以您的算术级数为例，一个 0 矩阵)。更改 +至 -如果你坚持。

 e <- t(t(a) - colMeans(a)) - rowMeans(a) + mean(a)