r：应用值分配

Question

我想用x替换以下向量中每个字符串的第二个字母。

ba <- c('ba','aba','baba')
# goal: bx, axa, bxba

通常我只会使用substr(ba,2,2) <- 'x'。但是由于过于复杂的原因而无法进入此处，我试图避免substr，而是寻找另一种解决方案。因此，我尝试将字符串拆分并替换每个列表的第二个元素。但我收到此错误消息。

ba2 <- strsplit(ba,'')
lapply(ba2,function(x) x[2]) <- 'x'
# Error in lapply(ba2, function(x) x[2]) <- "x" : 
# could not find function "lapply<-"

我该如何解决此问题？有没有可以lapply结合使用的方法<-？

Answer 1

使用正则表达式替换：

sub("^(.).", "\\1x", ba)

说明：