文档介绍:一组学生参加了数学、科学和英语考试。为了给所有的学生确定一个单一的成绩衡量指标,需要将这些科目的成绩组合起来。此外,还想将前20%的学生评定为A,接下来20%的学生评定为B,以此类推。最后,希望按字母顺序对学生排序。Excel中的数据表StuIdStuNameMathScienceEnglish1JohnDavis50295252AngelaWilliams46567123BullJones62178224CherylCushing57566185ReuvenYtzrhak45496156JoelKnox63489307MaryRayburn57678378GregEngland42156129BradTmac599682210TracyMcgrady666100381:输入数据——R语言导入xlsx>("xlsx")>library(xlsx)>workbook<-"D:/R/">StuScore<-(workbook,1)>StuScore2:数据预处置——将变量进行标准化>options(digits=2)#限定为2位小数>afterscale<-scale(StuScore[,3:5])>afterscaleMathScienceEnglish[1,]-[2,]---[3,]--[4,]--[5,]--[6,][7,]-[8,]---[9,]--[10,](,"scaled:center")MathScienceEnglish5517923attr(,"scaled:scale"):通过函数mean()来计算各行的均值以及获得综合得分,并使用cbind()将其添加到花名册中>#3在afterscale中计算标准差均值,并将其添加到StuScore>score<-apply(afterscale,1,mean)#1表达行,mean表达均值函数>StuScore<-cbind(StuScore,score)>-----:函数quantile()给出学生综合得分的百分位数quantile(x,probs):求分位数,其中x为待求分位数的数值型向量,probs为一个由[0,1]之间的概率值组成的数值向量>afterquantile<-quantile(score,c(.8,.6,.4,.2))>afterquantile80%60%40%20%--:使用逻辑运算符,把score转为等级(离散型)>StuScore$grade[score>=afterquantile[1]]<-"A">StuScore$grade[score<afterquantile[1]&&score>=afterquantile[2]]<-"B">StuScore$grade[score<afterquantile[2]&&score>=afterquantile[3]]<-"C">StuScore$grade[score<afterquantile[3]&&score>=afterquantile[4]]<-"D">StuScore$grade[score<afterquantile[4]]<-"E">---