r - 提取字符串的一部分，以 4 位数字开头，以句点结尾

Question

我有一个如下所示的字符向量:

char <- c("cancer_6_53_7575_tumor.csv", "control_7_4_7363_healthy.csv")

我想提取以 4 位患者 ID 中的“7”开头并以“.”结尾的字符串部分，但是当该患者 ID 之前有 7 时，以下方法不起作用。

values <- unlist(qdapRegex::rm_between(char, "7", ".", extract = TRUE))

如何指定它必须以 4 位数字中的 7 开头？

Answer 1

你可以使用这个:

char <- c("cancer_6_53_7575_tumor.csv", "control_7_4_7363_healthy.csv")
gsub(".*(7\\d{3}.*)\\..*$", "\\1", char)
[1] "7575_tumor" "7363_healthy"

它在 7 之后搜索 3 位字符串(使其成为 4 位字符串):7\\d{3}

并开始记录模式直到第一个 . :(7\\d{3}.*)\\.

然后打印记录模式:\\1