【问题标题】：Shift a row down removing last value n rows at a time向下移动一行，一次删除最后一个值 n 行
【发布时间】：2017-06-16 11:47:02
【问题描述】：

我已经阅读了 shift 和 seq 的说明，但我自己无法弄清楚这一点。我需要将一列数字向下移动一步，一次移动 3 行，消除最后一个值。所以如果我有：

 serial  val1
    1      6
    2      8
    3      7
    4      11
    5      9 
    6      3

我需要的输出是：

 serial val1   val2
  1       6      NULL
  2       8      6
  3       7      8
  4       11     NULL
  5       9      11 
  6       3      9

我有大约 30 万行。

【问题讨论】：

为什么在所需的输出中有一个新行？这实际上应该由代码添加吗？
不，抱歉，不应添加更多行。

标签： r shift

【解决方案1】：

使用 data.table 中的set 可以消除每第三行：

test <- data.table(serial = c(1, 2, 3, 4, 5, 6, 7), val1 = c(6, 8, 7, 11, 9, 3, 4))
test[, val2 := shift(val1)]
for (i in seq(1, nrow(test), 3)){
    set(test, i = i, j = 3, value = NA)
}

   serial val1 val2
1:      1    6   NA
2:      2    8    6
3:      3    7    8
4:      4   11   NA
5:      5    9   11
6:      6    3    9
7:      7    4   NA

【讨论】：

那个 for 循环在 imo 中是不必要的。您可以使用该序列对i 中的数据进行子集化，并一次性更改所有对应的 val2 值。
我没有使用 for 循环，而是使用 test[seq(1, NROW(test), by = 3),]

【解决方案2】：

这是另一个解决方案（gl()）：

library("data.table")
df <- data.table(serial = c(1, 2, 3, 4, 5, 6, 7), val1 = c(6, 8, 7, 11, 9, 3, 4))
n <- df[, .N]
df[, f:=gl(n, 3, length=n)]
df[, val2 := shift(val1), by = f]
# > df
#    serial val1 f val2
# 1:      1    6 1   NA
# 2:      2    8 1    6
# 3:      3    7 1    8
# 4:      4   11 2   NA
# 5:      5    9 2   11
# 6:      6    3 2    9
# 7:      7    4 3   NA

【讨论】：

我尝试了这个，但遇到了一个不允许我使用 := 的 data.table 错误，因为我不是一个很难纠正的程序员。

【解决方案3】：

基础 R

d1 = data.frame(serial=1:6, val1=c(6,8,7,11,9,3))

#' Return new vector with values of each len in v shifted one index
#' It is an error if v modulo len is =! 0
shiftnew = function(v, len, simpl=T) {
  stopifnot(length(v) %% len == 0) 
  ind = as.factor(rep(1:(length(v)/len), each=len))
  newv <- tapply(v, ind, function(chunk){
    
    shifted <- c(NA, chunk[1:(len-1)])
  })
  if(simpl) unlist(newv)

}

d1$val2 <- shiftnew(d1[, "val1"], 3)

#output
  serial val1 val2
1      1    6   NA
2      2    8    6
3      3    7    8
4      4   11   NA
5      5    9   11
6      6    3    9

【讨论】：