如何删除每个示例的前缀

Question

我被困在删除每个样本的前缀上。我尝试删除示例中的所有数字，但这并不是分组的好方法。我只想保留示例名作为最后两个后缀。(例如: AAP-L )详细信息如下所示。提前谢谢你！

geo$pd$1 "AAB-HT002-AAP-L“"AAB-HT003-AAP-L”"AAB-HT006-AAP-L“"AAB-HT002-AAP-NL”

5 "AAB-HT003-AAP-NL“"AAB-HT006-AAP-NL”"AAB-C007-AU-L“"AAB-HT001-AT-L”

9“AAB-N-C 021-Normal-NC”“AAB-N-C 022-Normal-NC”“AAB-C 024-Normal-NC”"AAB-N-C025-Normal-NC“13 "AAB-HT010-AAP.T-L”"AAB-HT011-AAP-L“"AAB-HT012-AAP-L”"AAB-HT010-AAP.T-NL“

17“AAB-AU 011-AAP-NL”"AAB-HT012-AAP-NL“"AAB-C013-AU-L”"AAB-C033-AU-L“

21“AAB-C 037-AT-L”“AAB-C 043-AU-L”“AAB-AT 041-AU-L”“AAB-N-C 026-Normal-NC”25“AAB-N-C 027-Normal-NC”“AAB-N-C 028-Normal-NC”“AAB-N-C 029-Normal-NC "AAB-C014-AAP-L”

29 "AAB-HT017-AAP.T-L“"AAB-HT018-AAP-L”"AAB-C014-AAP-NL“"AAB-HT017-AAP.T-NL”

33 "AAB-HT018-AAP-NL“”AAB-C 047-AT-L“"AAB-M044-AU-L”“AAB-N-C 030-Normal-NC”37“AAB-N-C 032-Normal-NC”“AAB-N-C 034-Normal-NC”“AAB-NC 035-Normal-NC "AAB-C020-AAP.T-L”

41“AAB-C 038-AAP-L”“AAB 046-AAP-L”"AAB-C020-AAP.T-NL“”AAB 046-AAP-NL“

45“AAB-C 048-AT-L”“AAB-AT 050-AT-L”"AAB-M-060-AU-L“"AAB-M-061-AU-L”

49“AAB-N-C 036-正常-NC”“AAB-N-C 039-正常-NC”“AAB-N-C 042-正常-NC”“AAB-N-C 045-正常-NC”53“AAB-C 052-AAP-L”“AAB-C 076-AAP-L”"AAB-M056-AAP-L“"AAB-M058-AAP-L”

57“AAB-C 052-AAP-NL”“AAB-C 076-AAP-NL”"AAB-M056-AAP-NL“"AAB-M058-AAP-NL”

61“AAB-NC 077-AU-L”“AAB-NC 082-AU-L”"AAB-M080-AU-L“”AAB-N-C 054-Normal-NC“65”AAB-N-C 055-Normal-NC“”AAB-N-C 059-Normal-NC“”AAB-N-C 062-Normal-NC“AAB-C 083-AAP-L”

69 "AAB-HT009-AAP-L“”AAB-NL 079-AAP-L“”AAB-NL 086-AAP-L“"AAB-C083-AAP-NL”

73“AAB-AU 079-AAP-NL”“AAB-AU 086-AAP-NL”"AAB-C016-AU-L“"AAB-HT008-AU-L”

77“AAB-AT 091-AT-L”“AAB-NC 087-AU-L”“AAB-N-C 063-Normal-NC”AAB-N-C 064-Normal-NC“81 "AAB-N-C065-Normal-NC”“AAB-AT 103-AAP-L "AAB-SF078-AAP.T-L”"AAB-SF099-AAP-L“

85“AAB-AT 103-AAP-NL”“AAB-NL 078-AAP.T-NL”“AAB-NL 099-AAP-NL”“AAB-AT 096-AT-L”

89 "AAB-M094-AU-L“”AAB-89 089-AU-L“”AAB-89 090-AU-L“"AAB-SF100-AU-L”

93“AAB-N-C 069-Normal-NC”“AAB-N-C 070-Normal-NC”“AAB-N-C 071-Normal-NC”“AAB-N-C 072-Normal-NC”97“AAB-N-C 074-Normal-NC”AAB-N-C 075-Normal-NC "AAB-N-C085-Normal-NC“"AAB-C092-Normal-NC”

101“AAB-M 112-AAP-L”“AAB-SF104 104-AAP-L”“AAB-SF104 114-AAP-L”“AAB-SF104 115-AAP.T-L”

105“AAB-M 112-AAP-NL”“AAB-NL 104-AAP-NL”“AAB-NL 114-AAP-NL”“AAB-NL 115-AAP.T-NL”

109“AAB-C 109-AU-L”“AAB-C 111-AU-L”“AAB-AT 101-AU-L”“AAB-M 110-AT-L”

113“AAB-AU 106-AU-L”“AAB-AU 113-AU-L”“AAB-N-C 098-Normal-NC”AAB-N-C 105-Normal-NC“117”AAB-N-C 107-Normal-NC“AAB-N-C 108-Normal-NC "AAB-HT095-AAP.T-L”AAB-HT095-AAP.T-NL“

121“AAB-AT 097-AT-L”“AAB-C 093-Normal-NC”

Answer 1

试试这个：

library(stringr)

# test data:
string <- c("AAB-HT002-AAP-L", "AAB-HT017-AAP.T-L", "AAB-HT003-AAP-L", "AAB-HT006-AAP-L", "AAB-HT002-AAP-NL")

str_split_fixed(string, '-', n=3)[, 3]

# output:
[1] "AAP-L"   "AAP.T-L" "AAP-L"   "AAP-L"   "AAP-NL" 

Answer 2

这将交付终端(alpha+period)-破折号-(alpha+period)-end组件。

titles <-c("AAB-HT002-AAP-L", "AAB-HT003-AA.P-L", "AAB-HT006-AAP-L", "AAB-HT002-AA.P-NL")

sub( "(.+)([-])([[:alpha:].]+[-][[:alpha:].]+$)", "\\3", titles)
[1] "AAP-L"   "AA.P-L"  "AAP-L"   "AA.P-NL"

Answer 3

我们可以用

library(stringr)
 str_remove(string, ".*\\d+-")
[1] "AAP-L"   "AAP.T-L" "AAP-L"   "AAP-L"   "AAP-NL"