重新排序 R data.frame 的子集，同时修改行名称

Question

给定一个 data.frame:

foo <- data.frame(ID=1:10, x=1:10)
rownames(foo) <- LETTERS[1:10]

我想重新排序由行名称定义的行子集。但是，我也想交换 foo 的行名。我可以

sel <- c("D", "H") # rows to reorder
foo[sel,] <- foo[rev(sel),]
sel.wh <- match(sel, rownames(foo))
rownames(foo)[sel.wh] <- rownames(foo)[rev(sel.wh)]

但那是漫长而复杂的。有没有更简单的方法？

Answer 1

我们可以更换 sel rownames 中的值与sel相反.

x <- rownames(foo)
foo[replace(x, x %in% sel, rev(sel)), ]

#  ID  x
#A  1  1
#B  2  2
#C  3  3
#H  8  8
#E  5  5
#F  6  6
#G  7  7
#D  4  4
#I  9  9
#J 10 10