R语言：如何对pivot_wider生成的数值列名（年份列）进行动态最后一列选择与降序排序

你遇到的问题核心是pivot_wider执行后，原有的YR列已经被转化为列名，没法再直接用max(YR)获取年份，而且ends_with的用法也不太适配这种列名动态变化的场景。下面给你几个简单靠谱的解决方案：

方法1：用dplyr的last_col()（最推荐） #

last_col()是dplyr专门用来定位数据框最后一列的函数，完全不用关心列名是什么，完美适配列数、列名动态变化的情况：

library(dplyr)
library(tidyr)

tmp <- tmp %>%
  pivot_wider(names_from = YR, values_from = Num_Deals) %>%
  arrange(desc(last_col()))

运行这段代码后，数据会自动按pivot后的最后一列（也就是最新年份列）降序排列，完全不用手动指定列名。

方法2：动态获取最后一列列名再排序 #

如果你想手动控制列名的获取逻辑，可以先提取最后一列的列名，再用符号引用的方式排序：

# 先完成宽表转换
tmp_wide <- tmp %>% pivot_wider(names_from = YR, values_from = Num_Deals)

# 获取最后一列的列名
last_col_name <- colnames(tmp_wide)[ncol(tmp_wide)]

# 按该列降序排序
tmp_sorted <- tmp_wide %>% arrange(desc(!!sym(last_col_name)))

这里sym()把字符串格式的列名转换成dplyr能识别的符号，!!用来解引用这个符号，从而实现动态列名的调用。

方法3：提前记录最大年份（适合需要明确年份的场景） #

如果你需要明确知道是按最大年份列排序，可以在pivot前先提取最大年份，再用它来指定列：

# 在pivot前记录最大年份（转成字符串适配列名格式）
max_year <- as.character(max(tmp$YR))

tmp <- tmp %>%
  pivot_wider(names_from = YR, values_from = Num_Deals) %>%
  arrange(desc(!!sym(max_year)))

为什么你的原代码出错？ #

你的代码里max(YRS)会报错，是因为pivot_wider执行后，原有的YR/YRS列已经被移除了，数据框里只剩下name和年份列，所以找不到YRS列；另外ends_with(paste0(max(YRS)))的逻辑也不成立——因为你在pivot之后才调用，此时已经没有YRS列来计算max值了。

用上面的方法处理后，你的示例数据会变成这样（按2010列降序）：

# 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

内容的提问来源于stack exchange，提问作者xtufer