<div dir="ltr">Oi Leonardo,<div><br></div><div>Obrigada pela sua ajuda.</div><div><br></div><div>Coloquei o arquivo rda no Dropbox. Veja se consegue abrir agora.</div><div><br></div><div><a href="https://www.dropbox.com/s/wg5zmqud4q62yng/dataC.inia.rda?dl=0">https://www.dropbox.com/s/wg5zmqud4q62yng/dataC.inia.rda?dl=0</a><br></div><div><br></div><div>Eu tenho duas ocasiões amostrais que deveriam ser equivalentes. Porém, na primeira (rep1C) tenho mais meses amostrados. Gostaria de preencher a segunda ocasião (rep2C) com os meses faltantes para que fique igual ao primeiro data.frame.</div><div><br></div><div>Estava tentando usar a função "rbind.fill" do pacote "plyr" mas sem sucesso.</div><div><br></div><div>Segue CMR atualizado:</div><div><br></div><div>#---------------------------------------------------------------------</div><div><div>## Building matrix for replicates</div><div># Sampling 1</div><div>rep1C <- dataC.inia[dataC.inia$replicate == 1,]</div><div><br></div><div>table(rep1C$area, rep1C$season, rep1C$transect)</div><div>dim(rep1C)</div><div><br></div><div># Sampling 2 </div><div>rep2C <- dataC.inia[dataC.inia$replicate == 2,]</div><div>table(rep2C$area, rep2C$season, rep2C$transect)</div><div>dim(rep2C)</div></div><div><br></div><div><div>comb.rep <- rbind.fill(rep1C, rep2C)</div><div>dim(comb.rep[comb.rep$replicate == '2',])</div></div><div class="gmail_extra"><br></div><div class="gmail_extra">#---------------------------------------------------------------------</div><div class="gmail_extra"><br></div><div class="gmail_extra">Obrigada,</div><div class="gmail_extra"><br></div><div class="gmail_extra">Heloise<br><div class="gmail_quote"><br></div><div class="gmail_quote"><br></div><div class="gmail_quote">Em 25 de junho de 2016 16:32, Leonardo Fontenelle via R-br <span dir="ltr"><<a href="mailto:r-br@listas.c3sl.ufpr.br" target="_blank">r-br@listas.c3sl.ufpr.br</a>></span> escreveu:<br><blockquote class="gmail_quote" style="margin:0px 0px 0px 0.8ex;border-left-width:1px;border-left-style:solid;border-left-color:rgb(204,204,204);padding-left:1ex"><u></u>




<div><div>Tentei baixar o arquivo, mas o que chegou foi um arquivo vazio (zero byte).<br></div>
<div> </div>
<div>Se o que você quer realmente é esticar um data.frame, você pode fazer algo assim:<br></div>
<div> </div>
<div>df <- data.frame(x = rnorm(10), y = rbinom(10, 1, 0.5))<br></div>
<div>df[11:20, ] <- NA<br></div>
<div>df<br></div>
<div> </div>
<div>Só que... Estou curioso para saber que tipo de problema você pretende resolver com isso.<br></div>
<div> </div>
<div>Att,<br></div>
<div> </div>
<div><div><a href="http://lattes.cnpq.br/9234772336296638" title="Currículo Lattes" target="_blank">Leonardo Ferreira Fontenelle</a><br></div>
</div><div><div class="h5">
<div> </div>
<div> </div>
<div>Em Sáb 25 jun. 2016, às 12:20, Heloíse Pavanato via R-br escreveu:<br></div>
</div></div><blockquote type="cite"><div><div class="h5"><div dir="ltr"><div>Boa tarde,<br></div>
<div> </div>
<div>Eu tenho dois data.frames com número de linhas diferentes (nrow(rep1C) = 73, nrow(rep2C) = 45), e colunas iguais (19).<br></div>
<div>Eu quero que ambos data.frames fiquem com a mesma dimensão. Para isso, rep2C deve ser aumentado com "NA". Porém, quero manter os mesmos índices "area", "season", "month" para ambos data.frames.<br></div>
<div> </div>
<div>Alguém tem alguma idéia de que função usar?<br></div>
<div> </div>
<div>Segue CMR:<br></div>
<div> </div>
<div>#----------------------------------------------------------------------<br></div>
<div> </div>
<div>## Load data<br></div>
<div># file: <span style="color:rgb(17,85,204)"><u><a href="https://www.datafilehost.com/d/64a6a8d9" target="_blank">https://www.datafilehost.com/d/64a6a8d9</a></u></span><br></div>
<div>load('dataC.inia.rda')<br></div>
<div> </div>
<div><div>## Building matrix for replicates<br></div>
<div># Sampling 1<br></div>
<div>rep1C <- dataC.inia[dataC.inia$replicate == 1,]<br></div>
<div> </div>
<div>table(rep1C$area, rep1C$season, rep1C$transect)<br></div>
<div>dim(rep1C)<br></div>
<div> </div>
<div># Sampling 2 <br></div>
<div>rep2 <- dataC.inia[dataC$replicate == 2,]<br></div>
<div>table(rep2$area, rep2$season, rep2$transect)<br></div>
<div>dim(rep2)<br></div>
</div>
<div> </div>
<div> #----------------------------------------------------------------------<br></div>
<div> </div>
<div>Obrigada pela ajuda!<br></div>
<div> </div>
<div>Heloise<br></div>
</div>
</div></div><div><u>_______________________________________________</u><br></div>
<div>R-br mailing list<br></div>
<div><a href="mailto:R-br@listas.c3sl.ufpr.br" target="_blank">R-br@listas.c3sl.ufpr.br</a><br></div>
<div><a href="https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br" target="_blank">https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br</a><br></div>
<div>Leia o guia de postagem (<a href="http://www.leg.ufpr.br/r-br-guia" target="_blank">http://www.leg.ufpr.br/r-br-guia</a>) e forneça código mínimo reproduzível.<br></div>
</blockquote><div> </div>
</div>

<br>_______________________________________________<br>
R-br mailing list<br>
<a href="mailto:R-br@listas.c3sl.ufpr.br">R-br@listas.c3sl.ufpr.br</a><br>
<a href="https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br" rel="noreferrer" target="_blank">https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br</a><br>
Leia o guia de postagem (<a href="http://www.leg.ufpr.br/r-br-guia" rel="noreferrer" target="_blank">http://www.leg.ufpr.br/r-br-guia</a>) e forneça código mínimo reproduzível.<br></blockquote></div><br></div></div>