按R中字符串的最后一个数字对字符串列表进行排序

custom_sort <- function(str_list) {
  # 提取字符串中的最后一个数字
  extract_number <- function(str) {
    last_digit <- gsub(".*?(\\d+)$", "\\1", str)
    as.integer(last_digit)
  }
  
  # 根据最后一个数字进行排序
  sorted_list <- str_list[order(sapply(str_list, extract_number))]
  return(sorted_list)
}

sorted_str_list <- custom_sort(str_list)