R语言习题.doc

一组学生参加了数学、科学与英语考试。为了给所有得学生确定一个单一得成绩衡量指标,需要将这些科目得成绩组合起来。另外,还想将前20%得学生评定为A,接下来20%得学生评定为B,以此类推。最后,希望按字母顺序对学生排序。Excel中得数据表StuIdStuNameMathScienceEnglish1JohnDavis50295252AngelaWilliams46567123BullJones62178224CherylCushing57566185ReuvenYtzrhak45496156JoelKnox63489307MaryRayburn57678378GregEngland42156129BradTmac599682210TracyMcgrady666100381:输入数据——R语言导入xlsx>install、packages("xlsx")>library(xlsx)>workbook<"D:/R/StuScore、xlsx">StuScore<read、xlsx(workbook,1)>StuScore2:数据预处理——将变量进行标准化>options(digits=2)#限定为2位小数>afterscale<scale(StuScore[,3:5])>afterscaleMathScienceEnglish[1,]0、581、0400、20[2,]1、020、8151、17[3,]0、820、0860、12[4,]0、280、8810、54[5,]1、151、1060、86[6,]0、980、6430、73[7,]0、290、0861、47[8,]1、541、5441、17[9,]0、560、7490、12[10,]1、351、3721、57attr(,"scaled:center")MathScienceEnglish5517923attr(,"scaled:scale")MathScienceEnglish84、715、19、53:通过函数mean来计算各行得均值以及获得综合得分,并使用cbind将其添加到花名册中>#3在afterscale中计算标准差均值,并将其添加到StuScore>score<apply(afterscale,1,mean)#1表示行,mean表示均值函数>StuScore<cbind(StuScore,score)>StuScoreStuIdStuNameMathScienceEnglishscore11JohnDavis50295250、2222AngelaWilliams46567121、0033BullJones62178220、2144CherylCushing57566180、3855ReuvenYtzrhak45496150、3066JoelKnox63489300、7877MaryRayburn57678370、5688GregEngland42156121、4299BradTmac59968220、101010TracyMcgrady666100381、434:函数quantile给出学生综合得分得百分位数quantile(x,probs):求分位数,其中x为待求分位数得数值型向量,probs为一个由[0,1]之间得概率值组成得数值向量>afterquantile<quantile(score,c(、8,、6,、4,、2))>afterquantile80%60%40%