grep 还是 pmatch？

Question

我正在尝试从目录导入一系列文件并将它们每个转换为数据帧。我还想使用文件标题创建两个具有标题相关值的新列。输入文件的格式为：xx_yy.out 其中 XX 目前可以是三个值之一。 YY 目前有两个可能的值。未来这些数字将会上升。

---

根据评论编辑解决方案（参见下面的原始问题）

---

再次编辑以反映@JoshO'Brien的建议

filelist <- as.list(dir(pattern = ".*.out"))

for(i in filelist) {

    tempdata  <- read.table(i)                  #read the table
    filelistshort <- gsub(".out$", "", i)       #remove the end of the file
    tempsplit <- strsplit(filelistshort, "_")   #remove the underscore
    xx <- sapply(tempsplit, "[", 1)             #get xx
    yy <- sapply(tempsplit, "[", 2)             #get yy
    tempdata$XX <- xx                           #add XX column
    tempdata$YY <- yy                           #add YY column
    assign(gsub(".out","",i), tempdata)         # give the dataframe a shortened name

}

下面是原始代码，显示我想使用某种方法来获取 XX 和 YY 值，但不确定最好的方法：

我的大纲（在 @romanlustrik post 之后）是如下所示：

filelist <- as.list(dir(pattern = ".*.out"))
lapply(filelist, FUN = function(x) {
    xx <- grep() or pmatch()
    yy <- grep() or pmatch()
    x <- data.frame(read.table(x)) 
    x$colx <- xx
    x$coly <- yy
    return(x)
})

其中 xx <- 和 yy <- 行将是基于 pmatch 或 grep 的查找。我正在尝试让其中任何一个发挥作用，但欢迎任何建议。

Answer 1

如果我们可以假设您的文件名仅包含一个 "_"，我就不会使用 grep() 或 pmatch()根本不。

strsplit() 似乎提供了一个更干净、更简单的解决方案：

filelist <- c("aa_mm.out", "bb_mm.out", "cc_nn.out")

# Remove the trailing ".out"
rootNames <- gsub(".out$", "", filelist)

# Split string at the "_"
rootParts <- strsplit(rootNames, "_")

# Extract the first and second parts into character vectors
xx <- sapply(rootParts, "[", 1)
yy <- sapply(rootParts, "[", 2)

xx
# [1] "aa" "bb" "cc"
yy
# [1] "mm" "mm" "nn"

Answer 2

这是一个丑陋的黑客，但完成了工作。

fl <- c("12_34.out", "ab_23.out", "02_rk.out")
xx <- regexpr(pattern = ".._", text = fl)
XX <- (substr(fl, start = xx, stop = xx + attr(xx, "match.length")-1))
  [1] "12" "ab" "02"
yy <- regexpr(pattern = "_..", text = fl)
YY <- (substr(fl, start = yy + 1, stop = yy + attr(yy, "match.length")-1))
  [1] "34" "23" "rk"