Я пытаюсь свернуть кадр данных, удалив все, кроме одной строки, из каждой группы строк с одинаковыми значениями в определенном столбце. Другими словами, первая строка из каждой группы.
Например, я хотел бы преобразовать этот
> d = data.frame(x=c(1,1,2,4),y=c(10,11,12,13),z=c(20,19,18,17))
> d
x y z
1 1 10 20
2 1 11 19
3 2 12 18
4 4 13 17
В это:
x y z
1 1 11 19
2 2 12 18
3 4 13 17
Я использую агрегат для этого в настоящее время, но производительность неприемлема для большего количества данных:
> d.ordered = d[order(-d$y),]
> aggregate(d.ordered,by=list(key=d.ordered$x),FUN=function(x){x[1]})
Я пробовал split/unsplit с тем же аргументом функции, что и здесь, но unsplit жалуется на повторяющиеся номера строк.
Возможно ли? Есть ли Идиома R для преобразования вектора длины rle в индексы строк, которые запускают каждый прогон, который затем я могу использовать, чтобы вырвать эти строки из фрейма данных?