Boa tarde colegas listeiros, como vão? Estou buscando unir diversos arquivos .txt de determinados diretórios num arquivo único. Todos os diretórios tem o mesmo número de arquivos (10) e cada um deles tem o mesmo numero de linhas e de colunas (36 x 23), de forma que o arquivo final gerado deveria ser um objeto de dimensão 360 x 23. Entretanto, em algum ponto, o comando não funciona de modo correto e o arquivo final gerado nunca bate com o desejado. Segue o código: (*em anexo, seguem os arquivos de um dos diretórios para teste*) rm(list = ls()) raiz = "C:\\Users\\Yury\\Desktop\\" x = "NASA" setwd(paste0(raiz, x)) #--------------------Juntar Arquivos num Unico .txt--------------------# for(i in 1:length(dir(paste0(raiz, x)))){ A1 = read.table(dir(paste0(raiz, x))[i], header = T, sep = "\t"); head(A1) if(i == 1){ write.table(A1, paste0(raiz, x, '\\', x,'.txt'), sep = "\t", append = T, col.names = T, row.names = F) } else{ write.table(A1, paste0(raiz, x, '\\', x,'.txt'), sep = "\t", append = T, col.names = F, row.names = F) } print (paste0(i, ' ok')) } Desde já, agradeço pela ajuda! Yury Duarte Engenheiro Agrônomo - ESALQ/USP