<div dir="ltr"><div class="gmail_extra"><div class="gmail_default" style="font-family:'trebuchet ms',sans-serif;font-size:small;color:rgb(51,51,51)">se entendi bem</div><div class="gmail_default" style="font-family:'trebuchet ms',sans-serif;font-size:small;color:rgb(51,51,51)"><br></div><div class="gmail_default" style="font-family:'trebuchet ms',sans-serif;font-size:small;color:rgb(51,51,51)">df1 <- expand.grid(unique(df$ano),unique(df$ido),unique(df$idd),unique(df$code))</div><div class="gmail_default" style="font-family:'trebuchet ms',sans-serif;font-size:small;color:rgb(51,51,51)">df3 <- merge(df1,df,by=c('ano','ido','idd','code'),all.x=T)</div><div class="gmail_default" style="font-family:'trebuchet ms',sans-serif;font-size:small;color:rgb(51,51,51)">df3$valor[<a href="http://is.na">is.na</a>(df3$valor)] <- 0</div><div class="gmail_default" style="font-family:'trebuchet ms',sans-serif;font-size:small;color:rgb(51,51,51)"><br></div><div class="gmail_default" style="font-family:'trebuchet ms',sans-serif;font-size:small;color:rgb(51,51,51)"><br></div><div class="gmail_default" style="font-family:'trebuchet ms',sans-serif;font-size:small;color:rgb(51,51,51)">​​</div><br></div></div>