比方说，我有一个a带有length(a) = l和的向量l >= 1。
该元素"x"在 中至少出现一次a，但我们不知道确切的位置。
我想替换每个"x"在a与价值观c(1,2,3)
例如：a = ("y","x","z")，那么我希望替换后的结果是a = ("y",1,2,3,"z")。
我想这样做：
l <- length(a)
pos.x <- which(a == "x")
if(l == 1L & pos.x == 1L) {
a <- c(1,2,3)
} else if (l > 1L & pos.x == 1) {
a <- c(1,2,3,a[-1])
} else if (l > 1L & pos.x == l) {
a <- c(a[-l],1,2,3) …