r - 将一列向下移动一个

Question

假设我有一个 data.frame看起来像这样

 df <- data.frame(AAA = rep(c(NA,sample(1:10, 1)),5),
  BBB = rep(c(NA,sample(1:10, 1)),5),
  CCC = rep(c(sample(1:10, 1),NA),5))

> df 
   AAA BBB CCC
1   NA  NA  10
2    3   7  NA
3   NA  NA  10
4    3   7  NA
5   NA  NA  10
6    3   7  NA
7   NA  NA  10
8    3   7  NA
9   NA  NA  10
10   3   7  NA

我想将 CCC 列向下移动一个，以便所有数字在一行中对齐，然后删除不包含任何数据的行(通常每隔一行 - 但并非总是 - 模式可能会因 data.frame 而异。

Answer 1

使用 dplyr

library(dplyr)
df %>%
mutate(CCC=lag(CCC)) %>%
na.omit()

或使用 data.table

library(data.table)
na.omit(setDT(df)[, CCC:=c(NA, CCC[-.N])])