与 R 中的循环相关

Question

我在一个文件夹中有一些文件，我可以使用 dir() 列出它们

epochs <- dir(path = paste0(getwd(), "/", "model"))
epochs
  [1] "epoch 0"  "epoch 1"  "epoch 10" "epoch 11" "epoch 12" "epoch 13" "epoch 14" "epoch 15" "epoch 16" "epoch 17" "epoch 18"
 [12] "epoch 19" "epoch 2"  "epoch 20" "epoch 21" "epoch 22" "epoch 23" "epoch 24" "epoch 25" "epoch 26" "epoch 27" "epoch 28"
 [23] "epoch 29" "epoch 3"  "epoch 30" "epoch 31" "epoch 32" "epoch 33" "epoch 34" "epoch 35" "epoch 36" "epoch 37" "epoch 38"
 [34] "epoch 39" "epoch 4"  "epoch 40" "epoch 41" "epoch 42" "epoch 43" "epoch 44" "epoch 45" "epoch 46" "epoch 47" "epoch 48"
 [45] "epoch 49" "epoch 5"  "epoch 50"

当我尝试通过这些文件循环时 -

for (epoch in epochs)
{
  print(epoch)
}

输出如下 -

[1] "epoch 0"
[1] "epoch 1"
[1] "epoch 10"
[1] "epoch 11"
[1] "epoch 12"
[1] "epoch 13"
[1] "epoch 14"
[1] "epoch 15"
[1] "epoch 16"
[1] "epoch 17"
[1] "epoch 18"
[1] "epoch 19"
[1] "epoch 2"
[1] "epoch 20"
[1] "epoch 21"
[1] "epoch 22"
[1] "epoch 23"
[1] "epoch 24"
[1] "epoch 25"
[1] "epoch 26"
[1] "epoch 27"
[1] "epoch 28"
[1] "epoch 29"
[1] "epoch 3"
[1] "epoch 30"
...

我想按递增顺序循环，但顺序不同。我该如何纠正？

Answer 1

如果我们需要在循环之前对它们进行排序

library(gtools)
epochs1 <- mixedsort(epochs)

然后做循环