разделить данные и переупорядочить значения на основе номера разделения

Question

У меня есть эти данные:

      row col
 [1,]   1   1
 [2,]   7   1
 [3,]   2   2
 [4,]   7   2
 [5,]  18   2
 [6,]   3   3
 [7,]   4   4
 [8,]   5   5
 [9,]  19   5
[10,]   6   6
[11,]   1   7
[12,]   2   7
[13,]   7   7
[14,]  18   7
[15,]   8   8
[16,]   9   9
[17,]  10  10
[18,]  11  11
[19,]  12  12
[20,]  13  13
[21,]  18  13
[22,]  14  14
[23,]  15  15
[24,]  16  16
[25,]  17  17
[26,]   2  18
[27,]   7  18
[28,]  13  18
[29,]  18  18
[30,]   5  19
[31,]  19  19
[32,]  20  20

Я хотел бы разделить их на основе некоторых условий заказа. Я могу разделить его, используя:

split(m1[, 'row'], m1[, 'col'])

, что дает мне такой вывод:

$`1`
[1] 1 7

$`2`
[1]  2  7 18

$`3`
[1] 3

$`4`
[1] 4

$`5`
[1]  5 19

$`6`
[1] 6

$`7`
[1]  1  2  7 18

$`8`
[1] 8

$`9`
[1] 9

$`10`
[1] 10

$`11`
[1] 11

$`12`
[1] 12

$`13`
[1] 13 18

$`14`
[1] 14

$`15`
[1] 15

$`16`
[1] 16

$`17`
[1] 17

$`18`
[1]  2  7 13 18

$`19`
[1]  5 19

$`20`
[1] 20

Однако я бы хотел сохранить порядок. Разделения 1 - 6 являются правильными, поскольку первое значение в разбиении 1 равно 1 (второе значение 7). Первое значение в split 2 равно 2 (второе - 7, а третье - 18). Паттерн продолжается до тех пор, пока он не сломается при расколе 7. Я бы хотел, чтобы split 7 выглядел следующим образом:

 $`7`
[1]  7  1  2  18

Split 8 до 17 тоже все в порядке. Так как первое число соответствует разделенному номеру. Я хотел бы, чтобы split 18 и 19 выглядел так:

$`18`
[1]  18  2  7 13

$`19`
[1]  19  5

Как я могу разделить данные, используя эту структуру?

Данные:

m1 <- structure(c(1L, 7L, 2L, 7L, 18L, 3L, 4L, 5L, 19L, 6L, 1L, 2L, 
7L, 18L, 8L, 9L, 10L, 11L, 12L, 13L, 18L, 14L, 15L, 16L, 17L, 
2L, 7L, 13L, 18L, 5L, 19L, 20L, 1L, 1L, 2L, 2L, 2L, 3L, 4L, 5L, 
5L, 6L, 7L, 7L, 7L, 7L, 8L, 9L, 10L, 11L, 12L, 13L, 13L, 14L, 
15L, 16L, 17L, 18L, 18L, 18L, 18L, 19L, 19L, 20L), .Dim = c(32L, 
2L), .Dimnames = list(NULL, c("row", "col")))

Answer 1

Начиная с вашего split, вы можете:

x<-split(m1[, 'row'], m1[, 'col'])
Map(function(a,b) b[order(match(b,a))], as.integer(names(x)), x)

Answer 2

Идея состоит в том, чтобы разбить его как фрейм данных только на col, поэтому мы имеем их как элементы фрейма данных. Используя row, мы можем найти число в col, которое совпадает с row, поставить его первым и следовать за другими, то есть

lapply(split(data.frame(m1), m1[, 'col']), function(i) {
                                        i1 <- which(i$col == i$row); 
                                        i$row[c(i1, seq(nrow(i))[-i1])]})

Проверка порядка в тех, которые не прошли,

lapply(split(data.frame(m1), m1[, 'col']), function(i) {i1 <- which(i$col == i$row); i$row[c(i1, seq(nrow(i))[-i1])]})[7]
#$`7`
#[1]  7  1  2 18

lapply(split(data.frame(m1), m1[, 'col']), function(i) {i1 <- which(i$col == i$row); i$row[c(i1, seq(nrow(i))[-i1])]})[18]
#$`18`
#[1] 18  2  7 13

lapply(split(data.frame(m1), m1[, 'col']), function(i) {i1 <- which(i$col == i$row); i$row[c(i1, seq(nrow(i))[-i1])]})[19]
#$`19`
#[1] 19  5