R：提取 substring 並將相同的 substring 粘貼到字符串末尾

Question

我有一些具有以下模式的字符串：字母和數字

A11B3XyC4 
A1B14C23XyC16 
B14C23XyC16D3

我想提取“Xy”部分（總是相同的字母）並將其粘貼到剩余字符串的末尾。 結果應該是這樣的：

A11B3C4. Xy
A1B14C23C16. Xy
B14C23C16D3. Xy

你能給我指一個有能力的 function 嗎？

謝謝你！

Answer 1

我們可以在pattern參數中使用sub和 build 組，方法是將它們包裝在()中。 我們可以在replacement參數中使用\\后跟組號來訪問這些組。

strs <- c("A11B3XyC4", 
  "A1B14C23XyC16",
  "B14C23XyC16D3")

sub("(.*)(Xy)(.*)", "\\1\\3\\. \\2", strs)
#> [1] "A11B3C4. Xy"     "A1B14C23C16. Xy" "B14C23C16D3. Xy"

^{由reprex package (v0.3.0) 創建於 2021-08-27}