R - 使用正則表達式刪除所有字符串，特殊字符和模式結束元素

Question

假設我有一個字符向量ids ，如下所示：

ids <- c("367025001", "CT_341796001", "M13X01692-01", "13C025050901", "13C00699551")

我想搜索每個元素並刪除所有字母，所有特殊字符，並在結束元素時刪除“01”。 所以ids會變成：

ids_replaced <- c("3670250", "3417960", "1301692", "130250509", "1300699551")

我有點接近，但它沒有按照我的意圖行事。

gsub("(.*?)(\\d+?)(01$)", "\\2", ids, perl = TRUE)

Answer 1

你可以用

gsub("01$|\\D", "", ids)
# [1] "3670250"    "3417960"    "1301692"    "130250509"  "1300699551"
identical(gsub("01$|\\D", "", ids), ids_replaced)
# [1] TRUE

正則表達式說明：

• 01匹配“01”
• $之前的可選\\n和字符串的結尾
• | 要么
• \\D匹配非數字（除了0-9之外）

Answer 2

使用rex可以使這種類型的任務更簡單一些。

ids <- c("367025001", "CT_341796001", "M13X01692-01", "13C025050901", "13C00699551")

re_substitutes(ids,
  rex(non_digits %or% list("01", end)),
  '',
  global = TRUE)

#> [1] "3670250"    "3417960"    "1301692"    "130250509"  "1300699551"

Answer 3

我不知道如何在R中做到這一點，但你可以使用這個正則表達式：

-\d+$|\D

工作演示