<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><div><br></div>-- <br><div class="gmail_signature"><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>
</div>