替換字符串中的模式

Question

我有幾種這種格式的字符串。 分隔符是一個破折號（ - ），中間的每個“事物”都是一個標記。

string <- "FA-I2-I2-I2-EX-I2-I3-FA-I1-I2-TR-I1-I2-FA-I3-I1-FAFANR-I3-I2-TR-I1-I2-I1-I2-FA-I2-I1-I3-FAQU-I1-I2-I2-I2-NR-I2-I2-NR-I1-I2-I1-NR-I3-QU-I2-I3-QUNR-I2-I1-NRQUQU-I2-I1-EX"

我想確定行中包含字母“ I”的標記（即標記I1，I2和I3）的情況。 然后，我想用沒有分隔符的描述替換那些描述。 例如，字符串的開頭應按以下方式轉換：

FA-I2I2I2-EX

因此，基本上我想要做的就是刪除包含“ I”的標記之間的所有破折號。

這是一個令人費解的解決方案：

string1 <- gsub(string, pattern = "I1", replacement = "ZI1Z")
string2 <- gsub(string1, pattern = "I2", replacement = "ZI2Z")
string3 <- gsub(string2, pattern = "I3", replacement = "ZI3Z")
string4 <- gsub(string3, pattern = "Z-Z", replacement = "")
string5 <- gsub(string4, pattern = "Z", replacement = "")

這使：

"FA-I2I2I2-EX-I2I3-FA-I1I2-TR-I1I2-FA-I3I1-FAFANR-I3I2-TR-I1I2I1I2-FA-I2I1I3-FAQU-I1I2I2I2-NR-I2I2-NR-I1I2I1-NR-I3-QU-I2I3-QUNR-I2I1-NRQUQU-I2I1-EX"

有沒有更優雅的方法可以做到這一點？

Answer 1

因此，基本上我想要做的就是刪除包含“ I”的標記之間的所有破折號。

如果您的案例聽起來很簡單，則可以使用環視斷言。

gsub('(?<=I\\d)-(?=I\\d)', '', string, perl = TRUE)
# [1] "FA-I2I2I2-EX-I2I3-FA-I1I2-TR-I1I2-FA-I3I1-FAFANR-I3I2-TR-I1I2I1I2-FA-I2I1I3-FAQU-I1I2I2I2-NR-I2I2-NR-I1I2I1-NR-I3-QU-I2I3-QUNR-I2I1-NRQUQU-I2I1-EX"