Uma possibilidade é essa:<div><br></div><div><div>o <- lapply(x,function(x) do.call(rbind,x))</div><div><br></div><div>for (i in 1:length(o)) {</div><div>assign(names(o)[i],o[[i]])</div><div>}</div><div><br></div><div><br>
</div><div><br></div><div>[]'s</div><br><div class="gmail_quote">2012/6/5 Leandro Marino <span dir="ltr"><<a href="mailto:leandromarino@leandromarino.com.br" target="_blank">leandromarino@leandromarino.com.br</a>></span><br>
<blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex">Caros,<br>
<br>
estou com um grande dúvida, tenho a seguinte lista<br>
<br>
x <- list()<br>
x$s1 <- list()<br>
x$s2 <- list()<br>
x$s1$tp1 <- data.frame(v1=1:10,v2=3:12,s=1,tp=1)<br>
x$s1$tp2 <- data.frame(v1=1:10,v2=3:12,s=1,tp=2)<br>
x$s1$tp3 <- data.frame(v1=1:10,v2=3:12,s=1,tp=3)<br>
x$s2$tp1 <- data.frame(v1=1:10,v2=3:12,s=2,tp=1)<br>
x$s2$tp2 <- data.frame(v1=1:10,v2=3:12,s=2,tp=2)<br>
x$s2$tp3 <- data.frame(v1=1:10,v2=3:12,s=2,tp=3)<br>
<br>
quero juntar de tal forma que :<br>
s1 <- rbind(x[[1]][[1]],x[[1]][[2]],x[[1]][[3]])<br>
s2 <- rbind(x[[1]][[1]],x[[1]][[2]],x[[1]][[3]])<br>
<br>
no entanto, s varia de 1 a 300. isto é possivel?<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" 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" 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>