如何在R中编写if else语句根据文件名格式执行对应排序代码？

没问题，咱们可以通过正则表达式检测文件名的特征格式，结合if-else分支来自动匹配对应的排序代码。下面是具体实现步骤：

先明确两种文件名的特征 #

• 第一种格式：文件名包含-R[数字]-结构（比如-R2-），数字后直接跟短横线，没有下划线连接的后续数字
• 第二种格式：文件名包含-R[数字]_[数字]结构（比如-R1_1），数字后用下划线连接另一组数字

完整的判断+排序代码 #

我们可以用grepl()函数匹配正则表达式判断格式，再执行对应排序逻辑：

# 示例1：第一种格式的文件列表
file.list1 <- c( "W2345_S-001-R2-20D_790.datavalue.csv",
                 "W2346_S-001-R4-20D_792.datavalue.csv",
                 "W2347_S-001-R1-20D_789.datavalue.csv",
                 "W2348_S-001-R3-20D_791.datavalue.csv",
                 "W2349_S-001-R5-20D_793.datavalue.csv")

# 示例2：第二种格式的文件列表
file.list2 <- c("W2345_S-001-R1_1.csv",
                "W2346_S-001-R1_10.csv",
                "W2347_S-001-R1_2.csv",
                "W2348_S-001-R1_9.csv",
                "W2345_S-001-R2_1.csv",
                "W2346_S-001-R2_10.csv",
                "W2347_S-001-R2_2.csv",
                "W2348_S-001-R2_9.csv")  

# 封装判断与排序的函数
sort_file_list <- function(file_list) {
  # 检查是否匹配第一种格式（取第一个文件判断，若担心混格式可改用all(grepl(...))）
  is_format1 <- grepl("-R\\d+-", file_list[1])
  
  if (is_format1) {
    # 执行第一种排序逻辑
    file_list <- file_list[order(as.numeric(stringr::str_match(file_list, "-R\\s*(.*?)\\s*-"))[,2])]
  } else {
    # 执行第二种排序逻辑
    file_list <- file_list[stringr::str_order(gsub("W.*1-","", file_list), numeric = TRUE)]
  }
  return(file_list)
}

# 测试第一种格式
sort_file_list(file.list1)
# 输出会按R1-R5的顺序排列

# 测试第二种格式
sort_file_list(file.list2)
# 输出会按R1_1、R1_2、R1_9、R1_10、R2_1...的自然数字顺序排列

关键代码解释 #

1. 格式判断：grepl("-R\\d+-", file_list[1])通过正则匹配，检查第一个文件名是否包含-R+数字+-的结构，以此区分格式；如果你的文件列表可能存在混合格式的情况，可以改成all(grepl("-R\\d+-", file_list))，确保所有文件都符合第一种格式再执行对应排序。
2. 第一种排序：用stringr::str_match精准提取-R和-之间的数字，转成数值类型后排序，保证数字顺序的正确性。
3. 第二种排序：先用gsub去掉文件名前缀，再用stringr::str_order做自然数字排序，能正确处理10排在9后面的需求（避免字符串排序导致的10在2前面的问题）。

注意：运行代码前请确保已安装并加载stringr包，若未安装可先执行install.packages("stringr")。

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