提取两个字符R之间的字符[重复]

Question

我有一个 df，我想提取 './' 和 '.v8' 之间的组织名称 所以对于这个df，结果将是一个只有“甲状腺”、“食道肌肉”、“脂肪”的列

gene<-c("ENSG00000065485.19","ENSG00000079112.9","ENSG00000079112")
tissue<-c("./Thyroid.v8.signif_variant_gene_pairs.txt.gz","./Esophagus_Muscularis.v8.signif_variant_gene_pairs.txt.gz","./Adipose_Subcutaneous.v8.signif_variant_gene_pairs.txt.gz")
df<-data.frame(gene,tissue)

我真的很纠结于正则表达式并尝试过：

pattern="/.\(.*)/.v8(.*)"
result <- regmatches(df$tissue,regexec(pattern,df$tissue))

但我明白了：

错误：'(' 是字符串开头的无法识别的转义 ""/.("

Answer 1

在R，我们需要转义（\）。在这里，我们使用了匹配单词 (\\w+) 的正则表达式查找，该单词在 .（元字符 - 转义）和 \ 之后，然后是 .（\\ 转义）和 'v8'

library(stringr)
library(dplyr)
df %>% 
    mutate(new = str_extract(tissue, "(?<=\\.[/])\\w+(?=\\.v8)"))
#             gene                                                     tissue                  new
#1 ENSG00000065485.19              ./Thyroid.v8.signif_variant_gene_pairs.txt.gz              Thyroid
#2  ENSG00000079112.9 ./Esophagus_Muscularis.v8.signif_variant_gene_pairs.txt.gz Esophagus_Muscularis
#3    ENSG00000079112 ./Adipose_Subcutaneous.v8.signif_variant_gene_pairs.txt.gz Adipose_Subcutaneous

(?<=\\.[/]) - 是正向向后查找，以匹配 . 和单词前面的 / (\\w+)，以及 (?=\\.v8) - 正向向后查找以匹配 . 和字符串 'v8 '在这个词之后。因此，基本上，它会查找前后有模式的单词并提取该单词