选择和排序由 pivot_wider 操作创建的“数字列名称”

Question

我有一个由 pivot_wider 创建的数据表。 “names_from”是数字，现在是新表中的列标题。想选择最后一列并排列（）降序。列名（在这种情况下为年份）可能会根据被透视的表的大小而在数量和名称上发生变化。我尝试使用 get() 和 paste0() 从年份的 max() 值创建列名，但收到错误提示该列不存在。

我试过的代码：

        tmp <- pivot_wider(tmp, names_from = YR, values_from = Num_Deals) %>% 
            arrange(ends_with(paste0(max(YRS)))) 
        tmp

这是我想按最近年份（在本例中为 2010 年）的列排序的 pivot_wider 结果：

小标题：912 x 7

name	2005	2006	2007	2008	2009	2010
1 Sierra Ventures	5	4	2	2	2	2
2 Mayfield Fund	4	NA	1	NA	NA	4
3 Focus Ventures	4	1	2	1	2	NA

Answer 1

很可能有更简单的解决方案，但您可以使用：

library(dplyr)

tmp %>% 
  arrange(desc(!!sym(as.character(max(as.integer(names(.)[grepl("\\d+", names(.))]))))))

返回

# A tibble: 3 x 7
  name            `2005` `2006` `2007` `2008` `2009` `2010`
  <chr>            <dbl>  <dbl>  <dbl>  <dbl>  <dbl>  <dbl>
1 Mayfield_Fund        4     NA      1     NA     NA      4
2 Sierra_Ventures      5      4      2      2      2      2
3 Focus_Ventures       4      1      2      1      2     NA