um codigo completo p o conjunto de dados imaginario seria: lapply(split(arq1, by=list(arq1$seq)), function(y) write.table(y, file=paste('saida_', unique(y$seq), '.txt', sep=''), sep='\t', quote=FALSE, row.names=FALSE)) b