代码之家 › 专栏 › 技术社区 › Prradep

在不匹配文件夹中文件的情况下提取标识符

stringr substring r

Prradep · 技术社区 · 6 年前

如何提取没有生成相应文件的标识符?

作为生成fo文件输入的标识符:

fileIden <- c('a-1','a-2','a-3','b-1','b-2','c-1','d-1','d-2','d-3','d-4')

正在检查生成的文件:

files <- list.files(".")

files
# [1] "a-2.csv" "a-3.csv" "b-1.csv" "c-1.csv" "d-3.csv"

# Generated here for reproducibility.
# files <- c("a-2.csv", "a-3.csv", "b-1.csv", "c-1.csv", "d-3.csv")

如果所有进程都完全成功,则需要文件

fileExp <- paste(fileIden, ".csv", sep = "")
# [1] "a-1.csv" "a-2.csv" "a-3.csv" "b-1.csv" "b-2.csv" "c-1.csv" "d-1.csv" "d-2.csv" "d-3.csv" "d-4.csv"

缺少任何预期的文件?

fileMiss <- fileExp[!fileExp %in% files]
# [1] "a-1.csv" "b-2.csv" "d-1.csv" "d-2.csv" "d-4.csv"

预期产量

# "a-1" "b-2" "d-1" "d-2" "d-4"

我确信有一个简单的过程可以直接获得上述输出,而无需创建文件: fileExp , fileMiss . 你能带我去那儿吗?

2 回复 | 直到 6 年前

PKumar 6 年前

你可以这样做:

fileIden <- c('a-1','a-2','a-3','b-1','b-2','c-1','d-1','d-2','d-3','d-4')
file <- c("a-2.csv", "a-3.csv" ,"b-1.csv", "c-1.csv", "d-3.csv")


setdiff(fileIden, trimws(gsub("\\.csv","", file)))

另一种方法:

setdiff(fileIden, stringr::str_extract(file,"(.*)(?=\\.csv)"))

逻辑 :

setdiff 找到两个向量之间的差异, gsub 将“.csv”替换为空,我们将它们组合在一起以找出这些向量之间的差异。

输出:

#[1] "a-1" "b-2" "d-1" "d-2" "d-4"

divibisan 6 年前

不那么优雅的做法

result <- ifelse(fileIden %in% substr(file, 1, 3), "", fileIden)
result[result != ""]

推荐文章

haku · 如何从作为某个值的子字符串的查找表中获取第一条记录?

2 年前

Milix · Python循环遍历CSS文件中的所有URL并替换

6 年前

Moksh Gaur · 替换<…>子字符串

6 年前

Dimitri · 子字符串长度失败(需要的长度超过设置为需要的长度)

6 年前

Eugene Yarmash · 这个算法寻找最长回文子串的时间复杂度是多少?

6 年前

AbdAlWahab Fanr · 在开始字符串[关闭]后获取字符串列表

6 年前

Mark A. Donohoe · 如果给定子字符串,是否可以访问它所基于的底层完整字符串?

6 年前

Joe · 要在文本中特定字符之前或/和之后提取的子字符串

6 年前

Laughin Coffin · 如何仅从数据库中获取数据片段?

6 年前

Reman · 如何在特定列之间找到匹配项?

6 年前