在R中通过索引有效地替换字符串元素

我想用特定位置的其他特定元素有效地替换character对象中的元素（这些位置是索引，我知道它们是gregexpr函数的结果）。

我想要一些像这样的foo功能：

foo("qwerty", c(1,3,5), c("z", "x", "y"))

给我：

[1] "zwxryy"

我搜索了stringrcran pdf软件包，但没有想到。预先感谢您的任何建议。