在字符之间插入分隔符

Question

我有一个字符列数据框，我想在其中每 2 个字符后插入一个分隔符。字符列的长度是可变的。看起来是这样的

id      character
1        aaabdg
2        bjdbjhdj
3        bjbkjekkechj
4        jkfb

我想要的输出数据框如下

id      character
1        aa_ab_dg
2        bj_db_jh_dj
3        bj_bk_je_kk_ec_hj
4        jk_fb

我一直在尝试创建正则表达式以在以下代码中使用，但还没有找到任何运气。

cat(paste0('[a-z]{2}', paste(str1, collapse="", ""), '[a-z]{2}'))

和

gsub("([a-z])", "\\,", str1)

任何帮助/建议将不胜感激

Answer 1

这是一个使用gsub的选项：

gsub("(..)(?!$)", "\\1_", "bjbkjekkechj", perl=TRUE)

[1] "bj_bk_je_kk_ec_hj"

这种方法是匹配和连续捕获每一对字符，前提是这对字符后面至少有一个字符。然后，我们用这两个捕获的字符替换，后跟一个下划线。否定前瞻(?!$) 确保我们不会在最后一个或最后一对字符之后添加下划线。