按学期和年份对列表文件进行排序

Question

我正在尝试对目录中的文件列表进行排序，我使用了不同的库，但都给出了相同的结果，例如：

    myFiles <- paste0("Archivo_", c(1:2),"S",rep(c(2010:2015), each=2), ".txt") 

     # install.packages ('gtools')
     library ('gtools')
     mixedsort(myFiles)

    sort(myFiles)

    # install.packages("naturalsort")
     library("naturalsort")

    naturalsort(myFiles)

     [1] "Archivo_1S2010.txt" "Archivo_1S2011.txt" "Archivo_1S2012.txt"
     [4] "Archivo_1S2013.txt" "Archivo_1S2014.txt" "Archivo_1S2015.txt"
     [7] "Archivo_2S2010.txt" "Archivo_2S2011.txt" "Archivo_2S2012.txt"
    [10] "Archivo_2S2013.txt" "Archivo_2S2014.txt" "Archivo_2S2015.txt"

我想要

 myFiles

  "Archivo_1S2010.txt" "Archivo_2S2010.txt" "Archivo_1S2011.txt"  
      "Archivo_2S2011.txt" "Archivo_1S2012.txt" "Archivo_2S2012.txt"
      "Archivo_1S2013.txt"  "Archivo_2S2013.txt"  "Archivo_1S2014.txt" 
      "Archivo_2S2014.txt"  "Archivo_1S2015.txt"  "Archivo_2S2015.txt"

Answer 1

  library(dplyr)
  myFiles %>% 
    tibble(archivo=.) %>% 
    mutate(archivo_ref = gsub("_\\dS", "", archivo)) %>% 
    arrange(archivo_ref) %>% 
    select(archivo) %>% 
    unlist %>% 
   unname
 [1] "Archivo_1S2010.txt" "Archivo_2S2010.txt" "Archivo_1S2011.txt" "Archivo_2S2011.txt"
 [5] "Archivo_1S2012.txt" "Archivo_2S2012.txt" "Archivo_1S2013.txt" "Archivo_2S2013.txt"
 [9] "Archivo_1S2014.txt" "Archivo_2S2014.txt" "Archivo_1S2015.txt" "Archivo_2S2015.txt"