r - 使用R中的行均值和行标准偏差的列式zscore

Question

我正在尝试使用R中的行均值和行标准偏差来获取按列的zscore。对于像apply（）这样的更复杂的函数，我是陌生的，所以我不确定在不手动执行嵌入式操作的情况下执行此操作的最佳方法for循环。 Exp是一个表达式矩阵，它将非常大，因此嵌入式for循环将需要一些时间。请原谅语法。我需要保留名字。

Dat<-for (i in 1:length(nrow(Exp))) {
for (j in 1:length(ncol(Exp))) {
(Exp[,j]-rowMean(Ex[i,]))/rowSds[i,]
}
}

如果按行使用apply（），则不保留列名，如果按列使用apply（），则将使用错误的均值和标准差。我需要遍历每个单元格，并使用该单元格行的行均值和标准差进行zscore计算，但要保留列名。

任何资源或帮助的方向将不胜感激。谢谢！

Answer 1

我们可以在rowMeans中使用rowSds

library(matrixStats)
(mtx - rowMeans(mtx))/rowSds(mtx)

数据

set.seed(42)
mtx <- matrix(rnorm(200), ncol=10)