如何从分支文件夹位置创建数据文件和数据路径列表？

Question

我在以下文件路径结构中有来自3个人的数据：

p1/ p2/ p3/ 

以上每个文件夹都是文件夹a/和b/，每个文件夹都包含我需要处理的一般命名数据文件datafile.txt

我需要将数据标识符和位置加载到格式列表中：

p1
"p1/a/"
p1
"p1/b/"
p2
"p2/b/"
p3
"p3/a/"
p3
"p3/b/"

我正在使用的教程文档使用称为sapply的东西来导航文件系统，该示例不适用于分支数据位置。我对R很新，所以遇到了麻烦。

Answer 1

如果您必须有一个列表（而不是矢量），并假设myDir是p1，p2，p3所在的路径，那么

tmp = dirname(list.files(myDir, recursive = T))
dirs = as.list(tmp)
names(dirs) = dirname(tmp)
dirs

$p1
[1] "p1/a"

$p2
[1] "p2/a"

$p2
[1] "p2/b"

$p3
[1] "p3/b"

如果你真的想要一个矢量，那么

dirs = dirname(list.files(myDir, recursive = T))
names(dirs) = dirname(dirs)
dirs
p1     p2     p2     p3 
"p1/a" "p2/a" "p2/b" "p3/b"