使用stringr在字符串指定位置插入字符向量的优雅实现（含实例）

核心思路 #

要避免编写显式循环，可借助R的向量化特性或函数式编程工具，结合stringr的字符串操作能力实现。核心要点：

• 确保插入位置按升序排列（若原位置无序，需先排序并同步调整插入元素的顺序），避免插入后位置偏移导致错误。
• 利用stringr的字符串截取/赋值功能，或通过构造字符串片段的方式完成拼接。

方法1：结合purrr的函数式迭代（推荐，可读性强） #

使用purrr::reduce2遍历插入位置和对应元素，通过str_sub的赋值特性完成插入，无需显式循环：

library(stringr)
library(purrr)

# 定义输入
original_str <- "KSTGGKAPR"
insert_chars <- c("me3", "ac")
insert_pos <- c(1, 6)

# 若插入位置无序，先排序（本例已升序，此步骤可选）
# sorted_idx <- order(insert_pos)
# insert_pos <- insert_pos[sorted_idx]
# insert_chars <- insert_chars[sorted_idx]

# 执行插入
final_str <- reduce2(insert_pos, insert_chars,
                     .init = original_str,
                     function(current, pos, char) {
                       # str_sub(x, pos, pos-1) <- char 等价于在pos位置前插入char
                       str_sub(current, pos, pos - 1) <- char
                       current
                     })

# 输出结果
final_str
#> [1] "me3KSTGGacKAPR"

方法2：纯stringr的片段拼接法（无额外依赖） #

通过构造拆分位置，将原字符串拆分为对应片段，再与插入元素交替拼接：

library(stringr)

# 定义输入
original_str <- "KSTGGKAPR"
insert_chars <- c("me3", "ac")
insert_pos <- c(1, 6)

# 构造拆分点：包含开头、插入位置、结尾
split_points <- c(0, insert_pos, str_length(original_str) + 1)
# 拆分原字符串为对应片段
str_fragments <- str_sub(original_str, split_points[-length(split_points)] + 1, split_points[-1] - 1)
# 交替拼接片段与插入元素，最后合并
final_str <- str_c(c(rbind(str_fragments[1:length(insert_chars)], insert_chars), str_fragments[-c(1:length(insert_chars))]), collapse = "")

# 输出结果
final_str
#> [1] "me3KSTGGacKAPR"

关键说明 #

• str_sub(current, pos, pos - 1) <- char是stringr中插入字符的技巧：当结束位置小于起始位置时，赋值操作会将字符插入到起始位置的前方。
• 若插入位置是乱序的，必须先排序，否则后续插入会因字符串长度变化导致位置偏移。

内容的提问来源于stack exchange，提问作者Pavel Shliaha