test1 <- as.matrix(c(1, 2, 3, 4, 5))
row.names(test1) <- c("a", "d", "c", "b", "e")
test2 <- as.matrix(c(6, 7, 8, 9, 10))
row.names(test2) <- c("e", "d", "c", "b", "a")
test1
[,1]
a 1
d 2
c 3
b 4
e 5
test2
[,1]
e 6
d 7
c 8
b 9
a 10
Как я могу переупорядочить test2 так, чтобы строки были в том же порядке как test1? например.
test2
[,1]
a 10
d 7
c 8
b 9
e 6
Я пытался использовать функцию переупорядочивания с: переупорядочивание (test1, test2), но я не мог выяснить правильный синтаксис. Я вижу, что переупорядочивание берет вектор, и я здесь использую матрицу. Мои реальные данные имеют один символьный вектор и другого как data.frame. Я полагал, что структура данных не будет иметь значения слишком много для этого примера выше, я просто нуждаюсь в помощи с синтаксисом и могу адаптировать его к своей настоящей проблеме.
После исправления кода вырезан, чтобы фактически сгенерировать то, что показывает ваш пример (подсказка: test1
имел имена a, b, c, d, e; вы имели в виду a, d, c, b, 1, поскольку это теперь показывает), это было проще благодаря match ()
:
R> test2[match(row.names(test2), row.names(test1)),1,drop=FALSE]
[,1]
a 10
d 7
c 8
b 9
e 6
R>
Ключевым моментом здесь является то, что match ()
делает то, что вы хотите:
R> match(row.names(test2), row.names(test1))
[1] 5 2 3 4 1