se entendi bem

df1 <- expand.grid(unique(df$ano),unique(df$ido),unique(df$idd),unique(df$code))

df3 <- merge(df1,df,by=c('ano','ido','idd','code'),all.x=T)

df3$valor[is.na(df3$valor)] <- 0

​​

_______________________________________________
R-br mailing list
R-br@listas.c3sl.ufpr.br
https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br
Leia o guia de postagem (http://www.leg.ufpr.br/r-br-guia) e forneça código mínimo reproduzível.