regex - R-正则表达式问题

Question

我需要使用正则表达式重新塑造我的数据框，特别是这种线

X21_GS04.A.mzdata

必须变成:

GS04.A

我试过了

pluto <- sub('^X[0-90_]+','', my.data.frame$File.Name, perl=TRUE)

它有效；比我试过的

pluto <- sub('.mzdata$','', my.data.frame$File.Name, perl=TRUE)

它也有效。

问题是我不知道如何将这两个代码合二为一，我尝试了这样的脚本

pluto <- sub('^X[0-90_]+ | .mzdata$','', my.data.frame$File.Name, perl=TRUE)

但什么也没有出现。
谁能告诉我我哪里错了？？

最好的
里卡多

Answer 1

你所追求的正则表达式是这样的:

^X\d+_(.*)\.mzdata$

这将匹配您的整个表达式并捕获您想要保留在组中的部分。您现在可以将其替换为 \1 (对捕获组的引用)。

在 R 中，这将是:

result <- sub('^X\\d+_(.*)\\.mzdata$', '\\1', my.data.frame$File.Name, perl=TRUE)