r语言 - 如何更改'for'循环中使用的参数的值？

Question

使用for和while的组合，我的问题类似于这个例子：我想在向量x的第一个元素上加1，跳过元素2:4，在第五个元素上添加1，直到向量x的末尾。

j <- 0
x <- c(rep(1, 4), 5:7)
for (i in 1:length(x)){
  x[i] <- x[i] + 1 
  while (j == 0){
    i <- i + 1
    if(x[i] != 1) j <- 1
    print(paste('in:', i))
  }
print(paste('out:', i))
}

结果表明，i值不变。有可能把它换成R吗？

[1] "in: 2"
[1] "in: 3"
[1] "in: 4"
[1] "in: 5"
[1] "out: 5"  # look!!!
[1] "out: 2"
[1] "out: 3"
[1] "out: 4"
[1] "out: 5"
[1] "out: 6"
[1] "out: 7"

Answer 1

为什么不简单地

x + rep(c(1,0,0,0), length.out=length(x))

如果您不介意回收警告，请使用以下内容：x + c(1,0,0,0)。

Answer 2

通过@paptiste注释，我解决了这个问题。如帮助信息所述："next停止当前迭代的处理并推进循环索引"。一个解决方案给出了一个例子：

j <- 0
x <- c(rep(1, 4), 5:7)
for (i in 1:length(x)){
  if (x[i] == 1 & j == 0){
    x[i] <- x[i] + 1 
    j <- 1
    next
  } 
  if (x[i] == 1) next
  x[i] <- x[i] + 1 
}
x
[1] 2 1 1 1 6 7 8

Answer 3

或者没有警告

x <- c(rep(1, 4), 5:7)
increment.position <- seq(1, length(x), by = 5)
x[increment.position] <- x[increment.position] + 1