r：lappy值赋值
我想用x替换下面向量中每个字符串的第二个字母r：lappy值赋值,r,variable-assignment,lapply,R,Variable Assignment,Lapply,我想用x替换下面向量中每个字符串的第二个字母 ba <- c('ba','aba','baba') # goal: bx, axa, bxba 我如何解决这个问题？是否有方法将lappy与使用regexp替换结合使用： sub("^(.).", "\\1x", ba) 说明： ^-单词的开头 （）-取任意字符，并记住它 。另一个任意字符 \1-替换为记忆的字符 。。。和“x” sub更好。对于lappy/strsplit方法，您可以使用sapply（lappy（strsplit（ba
ba <- c('ba','aba','baba')
# goal: bx, axa, bxba
我如何解决这个问题？是否有方法将
lappy使用regexp替换结合使用：
sub("^(.).", "\\1x", ba)
说明：
- ^-单词的开头
- （）-取任意字符，并记住它
- 。另一个任意字符
- \1-替换为记忆的字符
- 。。。和“x”
sub
更好。对于lappy
/strsplit
方法，您可以使用sapply（lappy（strsplit（ba，“”），函数（x）{x[2]另一种选择是substr
，而不是substrtank谢谢您！我不知道您可以在sapply
中嵌入两个由分隔的命令。这工作非常完美。
sub("^(.).", "\\1x", ba)