在字符串中每个字母后面添加数字

我有几个具有固定格式的字符串。

格式为一个字母后跟一个数字，例如 A3B1C7D1。

但是，如果字母后面的数字为 1，则字符串将写为 A3BC7D。

我想做的是插入数字 1，然后将字符串转换为A3BC7D to A3B1C7D1.

我的示例数据是

strings <- c("A", "A3BC3", "A2B1C")

我想要得到的是：

strings_new <- c("A1", "A3B1C3", "A2B1C1")

多谢！

另外一个选择：

gsub("([A-Za-z])(?=[A-Za-z])|([A-Za-z])$", "\\1\\21", strings, perl = T)

Output:

[1] "A1"     "A3B1C3" "A2B1C1"

或者，如果您只有大写字母，只需：

gsub("([A-Z])(?=[A-Z])|([A-Z])$", "\\1\\21", strings, perl = T)

基本上，这会找到后面跟着另一个字母或位于字符串末尾的字母，并将它们替换为自身，同时添加所需的数字，1在这种情况下。