如何按行名重新排列小标题

Question

传统数据框支持按行名重新排列行：

> df <- data.frame(c1 = letters[1:3], c2 = 1:3, row.names = paste0("x", 1:3))
> df
   c1 c2
x1  a  1
x2  b  2
x3  c  3

#' If we want, say, row "x3" and "x1":
> df[c("x3", "x1"), ]
   c1 c2
x3  c  3
x1  a  1

当谈到 tibble 时，由于它放弃了行名的概念，我想知道实现类似目标的标准方法是什么。

> tb <- as_tibble(rownames_to_column(df))
> tb
# A tibble: 3 x 3
  rowname c1       c2
  <chr>   <fct> <int>
1 x1      a         1
2 x2      b         2
3 x3      c         3
> ?

谢谢。

更新

我可以想出以下解决方案：

> tb[match(c("x3", "x1"), tb[["rowname"]]), ]
# A tibble: 2 x 3
  rowname c1       c2
  <chr>   <fct> <int>
1 x3      c         3
2 x1      a         1

但看起来很笨拙。有人有更好的主意吗？

更新 2

在更广义的意义上，我的问题可以改写为：根据 tidyverse 的语法，

最简洁快捷的等价物是什么

df[c("x3", "x1"), ]

也就是说，对数据帧的行进行子集化和重新排列。

Answer 1

正如 joran 所描述的，您可以对 select 感兴趣的行使用过滤器，然后按特定顺序排列小标题，手动定义，您可以使用 arrange 和 factor :

tibble(rowname = paste0("x", 1:3), c1 = letters[1:3], c2 = 1:3) %>%
  filter(rowname %in% c("x3", "x1")) %>%
  arrange(factor(rowname, levels = c("x3", "x1")))

如何按行名重新排列小标题

How to rearrange a tibble by rownames

r

dataframe

rowname

tidyverse

tibble

更新

更新 2