<div dir="ltr"><div><div><div>André,<br><br></div>Minha sugestão não exatamente sua resposta, mas pode ajudar:<br><br>data(iris)<br><br>list.data <- lapply(X = list('1' = iris, '2' = iris, '3' = iris),<br>                    FUN = function(data) with(data, tapply(Sepal.Length, Species, length)))<br><br></div>Att,<br></div>FH<br></div><div class="gmail_extra"><br><div class="gmail_quote">2015-08-20 15:09 GMT-05:00 André Vieira <span dir="ltr"><<a href="mailto:andrehpv@gmail.com" target="_blank">andrehpv@gmail.com</a>></span>:<br><blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex"><div dir="ltr"><div>Pessoal,</div><div><br></div><div>Quero rodar um loop que, em um dos comandos, adicione números em sequência (e.g. 1, 2, 3) apenas à segunda coluna de várias bases de dados. No meu caso, imaginei que precisaria usar um loop dentro de outro, mas não funcionou. (Ainda estou começando no R, como vocês podem perceber).</div><div><br></div><div>Segue um exemplo mais simples com a base "iris":</div><div><br></div><div>data1 <- iris</div><div>data2 <- iris</div><div>data3 <- iris</div><div><br></div><div>list_data <- list(data1, data2, data3)</div><div>list_emp <- vector("list", length(list_data))</div><div><br></div><div>for(i in 1:length(list_data)){</div><div>    file <- list_data[[i]]</div><div>    Sepal.Length <- tapply(file$Sepal.Length, file$Species, length)</div><div>    newData <- as.data.frame(Sepal.Length)</div><div>    newData <- cbind(Species = rownames(newData), newData)</div><div>    rownames(newData) <- NULL</div><div>    list_emp[[i]] <- newData</div><div>    for(j in 1:3){</div><div>        colnames(list_emp[[i]][2]) <- paste("Sepal.Length", j, sep = "_") # Nao funciona</div><div>    }</div><div>    rm(Sepal.Length, file, i, newData)</div><div>}</div><div><br></div><div>O loop deveria retornar uma lista com data frames na forma:</div><div><br></div><div># Species    | Sepal.Length_1</div><div># setosa     |      50</div><div># versicolor |      50</div><div># virginia   |      50</div><div><br></div><div># Species    | Sepal.Length_2</div><div># setosa     |      50</div><div># versicolor |      50</div><div># virginia   |      50</div><div><br></div><div># Species    | Sepal.Length_3</div><div># setosa     |      50</div><div># versicolor |      50</div><div># virginia   |      50</div><div><br></div><div>Alguém pode me ajudar a corrigir a linha que não funciona? Além disso, aceito sugestões que não sejam com for loops.</div><div><br></div><div>Abs.,</div><div><br></div><div>André</div><span class="HOEnZb"><font color="#888888"><div><br></div>-- <br><div><div dir="ltr"><div dir="ltr"><div dir="ltr"><div dir="ltr"><div dir="ltr"><div dir="ltr"><b><i>André Vieira</i></b><div><div>Mestre, Sociologia, UFMG (M.Sc., Sociology, UFMG) </div><div>Bacharel, Sociologia, UnB (B.Sc., Sociology, UnB)</div><div>Licenciado, Sociologia, UnB (B.Ed., Sociology, UnB)</div><div><a href="http://github.com/ahpvieira" target="_blank">GitHub</a></div><div><span style="font-size:12.8000001907349px"><a href="http://lattes.cnpq.br/6721713322923268" target="_blank">Currículo Lattes</a></span><br></div><div>Skype: andre.hpv</div></div></div></div></div></div></div></div></div>
</font></span></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>