按索引快速替换字符串中的多个字符

我正在尝试将字符串中的多个字符快速替换为另一个字符，例如*

例如，我有一个字符串，例如：

string = "abcdefghij"

我还有一个索引向量，指示我想在哪里用另一个字符替换上述字符串中的字母。

string_indexes_replaced = c(1, 4, 6, 9)

期望的输出：

"*bc*e*gh*j"

我做了什么

我尝试过一种非常新手般的方法，将字符拆分为列表，并将字符替换为*，然后将列表折叠回所需的字符串，如下所示：

library(dplyr)
library(stringi)

string%>%
strsplit(split = "")%>%
lapply(function(x) replace(x, string_indexes_replaced, rep("*", length(string_indexes_replaced))))%>%
lapply(stri_flatten)%>%
unlist(use.names = FALSE)

哪个输出

"*bc*e*gh*j"

但很明显，应该有比我上面发布的更简单、更快的东西。有什么比我在这里演示的更简单、更快的吗？

in base R，除了方法substring() and for-loop显示者@akrun, https://stackoverflow.com/a/59095253/12158757， 您可以使用utf8ToInt() and intToUtf8做到这一点

v <- utf8ToInt(string)
v[string_indexes_replaced ] <- utf8ToInt("*")
res <- intToUtf8(v)

这使

> res
[1] "*bc*e*gh*j"