Adding new column with diff() function when there is one less row in R

Question

If I have a sample data frame like mtcars, and I want to find the difference between mtcars$qsec for all rows, I can do diff(mtcars$qsec). But is there a simple way to make

Answer 1

You could use the base function within() like so:

mtcars <- within(mtcars, difference <- c(NA,diff(qsec)))

This creates a column called "difference" with the first element NA and the rest calculated by diff(qsec).

You could create more columns at the same time by wrapping commands in {}, such as:

mtcars <- within(mtcars, {difference <- c(NA,diff(qsec))
                         multiple <- qsec*2})

Note that you must use <- for the assignment and not =.

Answer 2

Here are two approaches. Both put an NA in the first row of diff_qsec and put diff(qsec) in the remaining rows:

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

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

Also, on the general issue of padding see: How can I pad a vector with NA from the front?