Z-scorce数据标准化求教

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

送您一个全额奖学金名额~ !

立即领取

感谢您参与论坛问题回答

经管之家送您两个论坛币！

+2 论坛币

各位大神：

最近想利用R对数据进行标准化处理，文献中常用Z-Score方法对数据进行标准化，数学公式为：Z=（x-x(mean)）/x（sd）

数据框中每个数值减去该列的平均值，再除以该列的方差

在R中编写了一个标准化函数：

Zscore<-function(x){
for(i in 1:ncol(x))
c=(x[,1:ncol(x)]-apply(x[,1:ncol(x)],2,mean))/apply(x[,1:ncol(x)],2,var)
}
return(c)
}


实际使用中却发现标准化后的数据，与利用Excel计算的结果不一致，求教各位是否函数哪里编写错误，求助！

扫码加我 拉你入群

请注明：姓名-公司-职位

以便审核进群资格，未注明则拒绝

分享0 收藏1 回帖

关键词：数据标准化 数据标准 SCOR SCO cor function return 平均值 Excel 数学

除以标准差不是方差

stzhao 发表于 2017-4-26 16:01
除以标准差不是方差

用R计算x[,1:ncol(x)]-apply(x[,1:ncol(x),2,mean])，得出的值就和Excel结果不一致了，我用rnorm虚构了10行2列的数据，表现为单数行（1,3,5,7,9....）结果与Excel一致，偶数行第一列计算结果是每行减去第二列均值（正确应为减去第一列均值），是否我循环命令哪里出错？

scale()函数可以直接求z分数

xugami 发表于 2017-4-26 16:17
scale()函数可以直接求z分数

Sigmoid<-function(x){
for(i in 1:ncol(x)){
m<-c()
v<-c()
c=(x[,1:ncol(x)]-apply(x[,1:ncol(x)],2,mean))/apply(x[,1:ncol(x)],2,var)
d=1/(1+exp(-c))
}
return(d)
}

如上，Z只是标准化的一步或一种，因为在作不同标准化处理对数据分析结果的影响，涉及到文献当中不同标准化的方法，还有模型拟合后的反标准化，所以想自己编写标准化函数，但是否是循环语句错误，如上，第一句循环就出现计算错误，有无解决办法没？求教

qq402977180，私聊？

想请问一下楼主的问题解决了吗？

减的时候是按列减的，用apply就不需要循环，正确的应该是:
Zscore<-function(x){
    c=t((t(x[,1:ncol(x)])-apply(x,2,mean))/apply(x[,1:ncol(x)],2,sd))
  return(c)
}

两个简单的方法：
1.Zscore<-(x-mean(x))/sd(x)
2.scale(x)

求各位大神stata怎么写z-score 的命令呢