R语言生成50名学生成绩（包含学号、性别、数学、C语言、计算机基础和英语），计算学生平均成绩并排名，计算每科最高（低）分、均值、方差，简单相关性分析

num<-seq(1:50)+18170001 #生成学号 gender<-round(runif(50,min=1,max=2)) #生成男女性别1代表男，2代表女 math<-round(runif(50,min=50,max=100)) #生成数学成绩 c.program<-round(runif(50,min=50,max=100)) #生成c语言成绩 boce<-round(runif(50,min=50,max=100)) #生成计算机基础成绩 english<-round(runif(50,min=50,max=100)) #生成英语成绩 gradetemp<-data.frame(num,gender,math,c.program,boce,english) #临时汇总成绩 average<-apply(gradetemp[c("math","c.program","boce","english")],1,mean) #求每位同学的平均分 grade<-data.frame(gradetemp,average) #包含平均分数的成绩 ranks<-grade[order(grade$average,decreasing = T),] #以平均分为依据降序排序的成绩 maxs<-apply(grade[c("math","c.program","boce","english")],2,max)#各科最高分 mins<-apply(grade[c("math","c.program","boce","english")],2,min)#各科最低分 means<-apply(grade[c("math","c.program","boce","english")],2,mean)#各科平均分 vars<-apply(grade[c("math","c.program","boce","english")],2,var)#各科方差 onlygrade<-data.frame(math,c.program,boce,english) #不包含学号和性别的成绩 cors<-cor(onlygrade)#相关系数分析 covs<-cov(onlygrade)#协方差分析

初次学习R语言，老师布置的作业，与大家分享下，如有错误，欢迎斧正。