gsub

 gsub("([ab])", "\\1_\\1_", "abc and ABC")
[1] "a_a_b_b_c a_a_nd ABC"

分析：在後邊查找a或b，查找到對每一個字母后邊加_