R语言习题.docx

一组学生参加了数学、科学和英语考试。为了给所有的学生确定一个单一的成绩衡量指标，需要将这些科目的成绩组合起来。另外，还想将前20%的学生评定为A，接下来20%的学生评定为B，以此类推。最后，希望按字母顺序对学生排序。Excel中的数据表StuIdStuNameMathScienceEnglish1John Davingela Williamull Joneheryl Cushineuven Ytzrhaoel Knoary Rayburreg Englanrad Tmac599682210Tracy Mcgrady666100381：输入数据——R语言导入xlsxinstall.packages(xlsx)library(xlsx)workbook-D:/R /StuScore.xlsxStuScore-read.xlsx(workbook,1)StuScore2：数据预处理——将变量进行标准化 options(digits=2)#限定为2位小数 afterscale-scale(StuScore[,3:5]) afterscale Math Science English [1,] -0.58 1.040 0.20 [2,] -1.02 -0.815 -1.17 [3,] 0.82 -0.086 -0.12 [4,] 0.28 -0.881 -0.54 [5,] -1.15 1.106 -0.86 [6,] 0.98 0.643 0.73 [7,] 0.29 -0.086 1.47 [8,] -1.54 -1.544 -1.17 [9,] 0.56 -0.749 -0.12 [10,] 1.35 1.372 1.57attr(,scaled:center) Math Science English 551 79 23 attr(,scaled:scale) Math Science English 84.7 15.1 9.53:通过函数mean()来计算各行的均值以及获得综合得分，并使用cbind()将其添加到花名册中 #3在afterscale中计算标准差均值，并将其添加到StuScore score-apply(afterscale,1,mean)#1表示行，mean表示均值函数 StuScore-cbind(StuScore,score) StuScore StuIdStuName Math Science English score1 1 John Davis 502 95 25 0.222 2 Angela Williams 465 67 12 -1.003 3 Bull Jones 621 78 22 0.214 4 Cheryl Cushing 575 66 18 -0.385 5 Reuven Ytzrhak 454 96 15 -0.306 6 Joel Knox 634 89 30 0.787 7 Mary Rayburn 576 78 37 0.568 8 Greg England 421 56 12 -1.429 9 Brad Tmac 599 68 22 -0.1010 10 Tracy Mcgrady 666 100 38 1.434:函数quantile()给出学生综合得分的百分位数quantile(x,probs):求分位数，其中x为待求分位数的数值型向量，probs为一个由[0,1]之间的概率值组成的数值向量 afterquantile-quantile(score,c(.8,.6,.4,.2)) afterquantile 80% 60% 40% 20% 0.60 0.21 -0.18 -0.505：使用逻辑运算符，把score转为等级（离散型） StuScore$grade[score=afterquantile[1]]-A StuScore$grade[scoreafterquantile[1]sco