r - 在字符串中的每个字母后添加数字

Question

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

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

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

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

我的示例数据是

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

我想得到的是:

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

非常感谢!

Answer 1

另外一个选项:

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

输出:

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

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

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

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