R упростить GSUB(), чтобы сделать имена образцов из более длинной строки

Question

У меня есть список имен образцов

name <- c("GOM_13M_TB-01_S.HM (Q)30", 
"GOM_13M_PS-06_S.HM (Q)30", 
"GOM_13O_PS-06_3C_HM (Q)30", 
"GOM_14O_GI-02_B3 (Q)30", 
"GOM_14O_PS-03_A3 (Q)30", 
"GOM_12J_GI-01_MS (Q)30")' 

, которые должны быть упрощены в

13M_TB-01_MS (MS for consistency) 
13M_PS-06_MS 
13O_PS-06_3C (I am not too concerned about the last 2 digits order) 
14O_GI-02_B3 
14O_PS-03_A3 
12J_GI-01_MS 

Я попытался следующие виды использования GSUB(), но я пытаюсь упростить решение.

x <- gsub("GOM_", "", name) 
x <- gsub("\\(Q\\)30", "", x) 
x <- gsub("_S", "_MS", x) 
x <- gsub(".HM", "", x) 

Любые предложения?

Answer 1

Может быть, вы можете попробовать что-то вроде следующего:

gsub("GOM_(.*) .*", "\\1", gsub("S.HM", "MS", name)) 
# [1] "13M_TB-01_MS" "13M_PS-06_MS" "13O_PS-06_3C_HM" "14O_GI-02_B3" 
# [5] "14O_PS-03_A3" "12J_GI-01_MS" 

Или, может быть:

## I think this matches what you're expecting... 
substr(gsub("S.HM", "MS", name), 5, 16) 
# [1] "13M_TB-01_MS" "13M_PS-06_MS" "13O_PS-06_3C" "14O_GI-02_B3" 
# [5] "14O_PS-03_A3" "12J_GI-01_MS"