关于R中的排序

     请教一下R中关于排序的问题     具体如下：有一个数据框，有两列数据，如图中B和C列，ID为三个班级中学生的ID，grade为分数，其中LA1，LA2，LA3对应的分数为各个班级上一次考试的班级平均分（即PA的数据与其他grade没有必然联系）。现进行如下排序，1，首先根据LA的数据大小进行每个班级的排序；2，然后再以每个班级为单位，在班级内部进行每个学生的成绩排序（第2步中，LA不参与排序）
      排序最终结果如E,F所示。

    我的思路：1，先对excel的数据进行处理，将所有LA的数据都标记为蓝色，加粗
                      2，将处理好的数据导入到R中
                      3，在R中进行蓝色加粗字体的定位，将整个数据框拆分成n个数据框（n由其中一列中蓝色加粗的个数决定），然后               根据每个小数据框中的PA值进行小数据框的排序（即上述中第一个排序）
                      4，再在每个小数据框中进行id的排序（即上述中第二个排序）

     请问用R如何操作？我在处理的时候，read.csv( ) 无法将csv数据中的颜色等信息读取，至于xlsx包和readxl包也看了一下，好像也不行（不确定是否可行），所以麻烦帮小弟解答。谢谢！

还有一个信息：上述班级的数量和每个班级中学生的数量都是不固定的

想不出来什么函数比较直接，笨笨的写一个倒是可以

1. data <- data.frame(id=c('LA1',1,2,3,'LA2',1,2),grade=c(70,60,70,80,85,70,80))
   
2. idx <- grep('LA',data$id)
   
3. rows <- diff(c(idx,nrow(data)+1))
   
4. orders <- order(data$grade[idx],decreasing=T)
   
5. for(i in 1:length(orders)){
   
6.   data$class_order[idx[orders[i]]:(idx[orders[i]]+rows[orders[i]]-1)] <- i
   
7. }
   
8. data$stu_order <- ifelse(grepl('LA',data$id),1,2)
   
9. results <- data[order(data$class_order,data$stu_order),c(1,2)]

复制代码

万人往LVR 发表于 2016-3-20 17:02
想不出来什么函数比较直接，笨笨的写一个倒是可以

谢谢你  运行了一下  大致思路是可行的  但是我这个只是举了个例子  实际问题和这个还是有点出入  所以我有空的时候我自己再琢磨下  有问题的话还请你帮忙  谢谢

可以增加数据变量，增加维度。把变量变为四个，ID  LA_number  LA_grade   grade,首先对LA_grade排序，然后对grade分块排序