在这里我们可以编写helper函数

foo <- function(x) {
  id <- gsub("[^0-9]", "", tail(names(x), 1))
  x[, length(x)] <- id
  x
}

字符串
然后与lapply一起使用它来转换列表

dfList  <- lapply(dfList, foo)
# [[1]]
#   A B xx123xx
# 1 1 2     123
# 
# [[2]]
#   X Y xx456xx
# 1 1 2     456

型

我们可以将dplyr与last_col（选择最后一列）和cur_column（当前选定列的name）一起使用。parse_number从字符串中提取数字/数字：

library(purrr)
library(dplyr)

dfList |>
    map(\(x)
        mutate(x,
               across(last_col(),
                              \(x) parse_number(cur_column())
                      )
               )
        )

[[1]]
  A B xx123xx
1 1 2     123

[[2]]
  X Y xx456xx
1 1 2     456

字符串