r: lapply赋值

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

使用regexp替换：

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

解释：

• ^ - beginning of word
• (.) -获取任意字符，并将其记忆为
• 。另一个任意字符
• \1-替换为记忆字符
• ...和'x'