<br />
#构造数据</p>
<p>dat <- data.frame(id=LETTERS[1:20],en=sample(40:100,20,replace=TRUE))</p>
<p># 标准化</p>
<p>z <- round((dat$en-mean(dat$en))/sd(dat$en), digits=2)</p>
<p># 为了视觉方便，转化为百分数</p>
<p>zt <- floor(100-10*max(z))<br />
T <- floor(10*z+zt)</p>
<p>final <- transform(dat,z_score=z,T=T)</p>
<p># 排名</p>
<p>final[order(T,decreasing = TRUE),]</p>
<p># 两者比较</p>
<p>comp <- function(x,y) final[c(x,y),]<br />
comp(4,7)<br />
id en z_score T<br />
4 D 88 0.84 93<br />
7 G 96 1.34 98</p>
<p>
</p>
