r - 当 R 中少一行时，使用 diff() 函数添加新列

Question

如果我有一个像 mtcars 这样的示例数据框，并且我想找到所有行的 mtcars$qsec 之间的差异，我可以执行 diff(mtcars$qsec)。但是有没有一种简单的方法可以使 diff(mtcars$qsec) 成为原始 mtcars 数据框中的新列？我发现这很困难，因为 diff(mtcars$qsec) 中的行比 mtcars 的其余部分少一行。

> head(mtcars,3)

               mpg cyl  disp  hp drat    wt  qsec vs am gear carb
Mazda RX4     21.0   6 160.0 110 3.90 2.620 16.46  0  1    4    4
Mazda RX4 Wag 21.0   6 160.0 110 3.90 2.875 17.02  0  1    4    4
Datsun 710    22.8   4 108.0  93 3.85 2.320 18.61  1  1    4    1

Answer 1

这里有两种方法。两者都放了 NA第一排diff_qsec并放 diff(qsec)在其余行中:

library(dplyr)  
mtcars %>% mutate(diff_qsec = qsec - lag(qsec)) # dplyr has its own version of lag

transform(mtcars, diff_qsec = c(NA, diff(qsec)))

另外，关于填充的一般问题，请参见: How can I pad a vector with NA from the front?