Question

我的问题类似于这个问题：How to change the order of display of list.files(): for example based on part of the whole name of files

但我的情况有所不同。我使用了提供的解决方案：

              a=a[order(gsub('.*_(\\d{8})[.].*','\\1',a))]

但是对我的情况不起作用，因为我的案例中的命名与该问题中提供的命名不同。

我在目录中有几个文件。文件的命名很复杂，例如：

 file.img
 file.img

我想列出文件，以便我可以使用它们，似乎R按特定顺序列出它们。即使数据没有正确排序，R也会按字母顺序排序文件。例如这两个文件名称：

如何告诉R更改list.files的默认显示，以及命令基于_yearmonthday的文件，它们代表所有文件中的yearmonthday：

列出R中的文件我们使用：

我用过：

      mixsort

但没有按我的要求订购

Answer 1

我认为您只需要更改gsub函数的模式。例如：

xx <- 'SM_OP_20120330T000000_20120330T235959_245_001_7_ssture.img'
gsub('.*_(\\d{8}).*','\\1',xx)
"20120330"

所以，整个解决方案是：

 a <- list.files("D:\\semon", "*.img", full.names = TRUE)
 a  <- a[order(as.numeric(gsub('.*_(\\d{8}).*','\\1',a)))]

编辑添加示例：

   a <- list('SM_OP_20120330T000000_20120330T235959_245_001_7_ssture.img', ##2012-mars-30
          'SM_RE_20101130T000000_20110427T235959_245_001_7_ssture.img', ##2010-nov-30
          'SM_RE_20100901T000000_20090127T235959_245_001_7_ssture.img', ##2010-sep-01
          'SM_RE_20100904T000000_20090427T235959_245_001_7_ssture.img') ##2010-sep-04


a[order( as.numeric(gsub('.*_(\\d{8}).*','\\1',a)))]

[[1]]
[1] "SM_RE_20100901T000000_20090127T235959_245_001_7_ssture.img"

[[2]]
[1] "SM_RE_20100904T000000_20090427T235959_245_001_7_ssture.img"

[[3]]
[1] "SM_RE_20101130T000000_20110427T235959_245_001_7_ssture.img"

[[4]]
[1] "SM_OP_20120330T000000_20120330T235959_245_001_7_ssture.img"

如何根据名称的某些“日期部分”在R中订购文件

1 个答案: