将数据帧单列中的值向上移动

使用这样的示例数据：

example=data.frame(x=c(1,2,3,4,5,6,7,8), y=c(1,2,3,4,5,6,7,8), z=c(1,2,3,4,5,6,7,8))

看起来像这样：

    x   y   z
1   1   1   1
2   2   2   2
3   3   3   3
4   4   4   4
5   5   5   5
6   6   6   6
7   7   7   7
8   8   8   8

我想将 z 列中的所有值向上移动两行，而数据帧的其余部分保持不变。 结果应该是这样的：

    x   y   z
1   1   1   3
2   2   2   4
3   3   3   5
4   4   4   6
5   5   5   7
6   6   6   8
7   7   7   NA
8   8   8   NA

我只找到了向下移动列的值或整个数据框移动的方法。

有任何想法吗？ 谢谢！

你的问题简化为：

• 放下第一个n向量中的元素
• Pad n的值NA在最后

您可以使用一个简单的函数来完成此操作：

shift <- function(x, n){
  c(x[-(seq(n))], rep(NA, n))
}

example$z <- shift(example$z, 2)

结果：

example
  x y  z
1 1 1  3
2 2 2  4
3 3 3  5
4 4 4  6
5 5 5  7
6 6 6  8
7 7 7 NA
8 8 8 NA