删除 "_"之前的所有字符

Question

这个问题在这里已经有了答案:





Eliminate characters before a pattern in R [duplicate]

(1 个回答)


上个月关闭。




如何删除“_”之前的任何字符和数字；举个例子:

> char <- c("SRR04_d3_GCTCGGTAAGCACCTCGCCACATA","SRR04_d1_ACTCGGTAAGCACCTCGCCACATA",
+           "JH-HL_GCTCGGTAAGCATGTCGCCACATA","HZ04_d5_GCTCGGTAAGCACCTCGCCACATA")
> c("GCTCGGTAAGCACCTCGCCACATA","ACTCGGTAAGCACCTCGCCACATA",
+           "GCTCGGTAAGCATGTCGCCACATA","GCTCGGTAAGCACCTCGCCACATA")
[1] "GCTCGGTAAGCACCTCGCCACATA" "ACTCGGTAAGCACCTCGCCACATA" "GCTCGGTAAGCATGTCGCCACATA"
[4] "GCTCGGTAAGCACCTCGCCACATA"

我可以用 str_replace 做这个吗？函数来自 tidyverse

Answer 1

您可以使用 sub 来执行此操作——

sub('.*_', '', char)

#[1] "GCTCGGTAAGCACCTCGCCACATA" "ACTCGGTAAGCACCTCGCCACATA"
#[3] "GCTCGGTAAGCATGTCGCCACATA" "GCTCGGTAAGCACCTCGCCACATA"

或者，如果您更喜欢 stringr职能。

stringr::str_remove(char, '.*_')
stringr::str_replace(char, '.*_', '')