Say I have a data.frame that looks like this
data.frame
df <- data.frame(AAA = rep(c(NA,sample(1:10, 1)),5), BBB = rep(c(NA,sample(1:10, 1)),5), CC
Using dplyr
dplyr
library(dplyr) df %>% mutate(CCC=lag(CCC)) %>% na.omit()
Or using data.table
data.table
library(data.table) na.omit(setDT(df)[, CCC:=c(NA, CCC[-.N])])