添加充满NA的行以完成我的数据

Question

我想添加行，以便每年有5行，并用NA填充。

我的数据集：

df <- data.frame( a= c(2001,2001,2001,2001,2003,2004,2004,2004,2004,2004),
                  b= c(2,4,5,7,8,6,2,4,2,1))

我想要的输出：

df2 <- data.frame( a= c(2001,2001,2001,2001,2001,2002,2002,2002,2002,2002,2003,2003,2003,2003,2003,2004,2004,2004,2004,2004),
                  b= c(2,4,5,7,NA,NA,NA,NA,NA,NA,8,NA,NA,NA,NA,6,2,4,2,1) )

编辑：

我的数据中存在的其他年份每年保持5个以上的值不变！

Answer 1

基本的R解决方案：

do.call(rbind,
  by(df,df$a,function(x){
    if(nrow(x)<5)  
      rbind(x,data.frame(a=unique(x$a),b=rep(NA,5-nrow(x))))
    else x
  })
)