搜索
人大经济论坛 附件下载

附件下载

所在主题:
文件名:  赋值程序及原始数据.rar
资料下载链接地址: https://bbs.pinggu.org/a-2359160.html
本附件包括:
  • final exam scores.csv
  • 赋值.docx
附件大小:
10.29 KB   举报本内容
原来数据大概这样的:
[[1]]
ID class score
1 1 1 44
2 2 1 53
3 3 1 90
.
.
.
[[4]]
ID class score
204 204 4 0
205 205 4 84
206 206 4 80
207 207 4 61
208 208 4 52
209 209 4 63
210 210 4 49

然后我是想#以60,70,85为界,将成绩分为“优秀”、“中等”、“及格”、“不及格”四类
写了下面这个

for(i in 1:4)
{
classn[]$score[which(classn[]$score<60)]<-"不及格"
classn[
]$score[which(classn[]$score>=60&classn[]$score<70)]<-"及格"
classn[
]$score[which(classn[]$score>=70&classn[]$score<85)]<-"中等"
classn[
]$score[which(classn[]$score>=85)]<-"优秀"
}
classn

但是结果会出错全部都显示优秀
[[1]]
ID class score
1 1 1优秀
2 2 1优秀
3 3 1优秀
4 4 1优秀
5 5 1优秀
6 6 1优秀
7 7 1优秀
8 8 1优秀
9 9 1优秀
10 10 1优秀
11 11 1优秀
12 12 1优秀
13 13 1优秀

一直想不通什么原因
把那些代码稍微改下
classn[
][which(classn[]$score<60),3]<-"不及格"
也还是全部显示优秀

观察结果,有一两个score=100的数据没有赋值"优秀"
于是修改 classn[
][which(classn[]$score>=85&classn[]$score<=100),3]<-"优秀"
结果发现所有score数据都已赋值但是也还是只有"不及格""优秀"两项 就是赋值也是乱的


1.尝试删除了赋值优秀那一行代码,结果显示又正常了

2.确定没有输入法错误

求R大神帮下忙,谢谢!



    熟悉论坛请点击新手指南
下载说明
1、论坛支持迅雷和网际快车等p2p多线程软件下载,请在上面选择下载通道单击右健下载即可。
2、论坛会定期自动批量更新下载地址,所以请不要浪费时间盗链论坛资源,盗链地址会很快失效。
3、本站为非盈利性质的学术交流网站,鼓励和保护原创作品,拒绝未经版权人许可的上传行为。本站如接到版权人发出的合格侵权通知,将积极的采取必要措施;同时,本站也将在技术手段和能力范围内,履行版权保护的注意义务。
(如有侵权,欢迎举报)
二维码

扫码加我 拉你入群

请注明:姓名-公司-职位

以便审核进群资格,未注明则拒绝

GMT+8, 2026-1-7 12:37