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}