标签：语言 Firstname roster grade Lastname 笔记 学习 score student
##数据的输入
#用键盘输入数据
#在下面的例子中，你将创建一个名为mydata的数据框，它含有三个变量
#age(数值型)，gender(字符型)，weight(数值型)
#age=numeric(0)的意思是将创建一个指定模式但不含实际数据的变量
mydata<-data.frame(age=numeric(0),gender=character(0),weight=numeric(0))
mydata<-edit(mydata)
书上例子
student<-c("John Davis","Angela Williams","Bullwinkle Moose","David Jones
","Janice Markhammer","Cheryl Cushing","Reuven Ytzrhak","Greg knox",
"Joel England","Mary Rayburn" )
math<-c(502,600,412,358,495,512,410,625,573,522)
science<-c(95,99,80,82,75,85,80,95,89,86)
english<-c(25,22,18,15,20,28,15,30,27,18)
roster<data.frame(student,math,science,english,stringsAsFactors = FALSE)
z<-scale(roster[,2:4])
z
options(digits = 2)
student<-c("John Davis","Angela Williams","Bullwinkle Moose","David Jones
","Janice Markhammer","Cheryl Cushing","Reuven Ytzrhak","Greg knox",
"Joel England","Mary Rayburn" )
math<-c(502,600,412,358,495,512,410,625,573,522)
science<-c(95,99,80,82,75,85,80,95,89,86)
english<-c(25,22,18,15,20,28,15,30,27,18)
roster<data.frame(student,math,science,english,stringsAsFactors = FALSE)
z<-scale(roster[,2:4])
roster<-data.frame(student,math,science,english,stringsAsFactors = FALSE)
z<-scale(roster[,2:4])
z
#通过计算平均值来得到综合得分
score<-appley(z,1,mean)
score<-apply(z,1,mean)
#将综合得分添加到花名册中
roster<-cbind(roster,score)
roster
y<-quantile(roster$score,c(.8,.6,.4,.2))
y
roster$grade[score>=y[1]]<-"A"
roster$grade[score<y[1]&score>=y[2]]<-"B"
roster$grade[score<y[2]&score>=y[3]]<-"C"
roster$grade[score<y[3]&score>=y[4]]<-"D"
roster$grade[score<y[4]]<-"F"
roster
options(digits = 2)
student<-c("John Davis","Angela Williams","Bullwinkle Moose","David Jones
","Janice Markhammer","Cheryl Cushing","Reuven Ytzrhak","Greg knox",
"Joel England","Mary Rayburn" )
math<-c(502,600,412,358,495,512,410,625,573,522)
science<-c(95,99,80,82,75,85,80,95,89,86)
english<-c(25,22,18,15,20,28,15,30,27,18)
roster<-data.frame(student,math,science,english,stringsAsFactors = FALSE)
#对数据进行标准化
z<-scale(roster[,2:4])
z
#通过计算平均值来得到综合得分
score<-apply(z,1,mean)
#将综合得分添加到花名册中
roster<-cbind(roster,score)
roster
#通过quantitle()计算学生综合得分的百分位数
y<-quantile(roster$score,c(.8,.6,.4,.2))
y
#通过逻辑运算符将学生百分位数排名编码为一个新的类别型成绩变量
#下面直接在数据框roster中创建了变量garade
roster$grade[score>=y[1]]<-"A"
roster$grade[score<y[1]&score>=y[2]]<-"B"
roster$grade[score<y[2]&score>=y[3]]<-"C"
roster$grade[score<y[3]&score>=y[4]]<-"D"
roster$grade[score<y[4]]<-"F"
roster
name<-strsplit((roster$student)," ")
name
Firstname<-sapply(name,"[",1)
Lastname<-sapply(name,"[",2)
#-1是不要student变量，它在第一列嘛
roster<-cbind(Firstname,Lastname,roster[,-1])
roster
roster(order(Lastname,Firstname),)
roster<-(order(Lastname,Firstname),)
roster<-[order(Lastname,Firstname)]
roster<-[order(Lastname,Firstname)]
#排序
roster[order(Lastname,Firstname)]
roster[order(Lastname,Firstname),]
标签：语言,Firstname,roster,grade,Lastname,笔记,学习,score,student 来源： https://blog.csdn.net/weixin_55081312/article/details/122760672
本站声明： 1. iCode9 技术分享网（下文简称本站）提供的所有内容，仅供技术学习、探讨和分享； 2. 关于本站的所有留言、评论、转载及引用，纯属内容发起人的个人观点，与本站观点和立场无关； 3. 关于本站的所有言论和文字，纯属内容发起人的个人观点，与本站观点和立场无关； 4. 本站文章均是网友提供，不完全保证技术分享内容的完整性、准确性、时效性、风险性和版权归属；如您发现该文章侵犯了您的权益，可联系我们第一时间进行删除； 5. 本站为非盈利性的个人网站，所有内容不会用来进行牟利，也不会利用任何形式的广告来间接获益，纯粹是为了广大技术爱好者提供技术内容和技术思想的分享性交流网站。