Automatizar leitura de arquivos e converter nome em colunas
Boa tarde pessoal, Tenho inúmeros arquivos dpt que podem ser lidos com txt e gostaria de fazer o seguinte, ler os dados que são apenas uma coluna em cada arquivo e transpor eles, em seguida, pegar o nome do arquivo e a cada _ criar uma nova coluna, sendo um arquivo: Cupim%20Syntermes_COLONIA%201_operario_1_c1_140616.dpt Gostaria que a última coluna fosse os dados transpostos no arquivo e as colunas fosse: Cupim%20Syntermes, COLONIA%20, operario, 1, c1 e 140616. Segue CRM com três arquivos: #------------------------------------------------------------------------------- ### Download a partir de uma lista de links com os arquivos #------------------------------------------------------------------------------- # ### Obtenção de links links <- c( "https://www.dropbox.com/s/l5ofrqw01tnfmmv/Cupim%20Syntermes_COLONIA%201_oper...", "https://www.dropbox.com/s/tkxkov16z813oc6/Cupim%20Syntermes_COLONIA%201_oper...", "https://www.dropbox.com/s/hjcmw9qutwwolo0/Cupim%20Syntermes_COLONIA%201_oper...") tokens <- gsub("^.*/s/","",dirname(links)) fileNames <- basename(links) newLinks <- file.path("http://dl.dropbox.com/s", tokens, fileNames); newLinks for (a in newLinks) { tryCatch(download.file(a, dest=basename(a), mode='wb'), error=function(...) print("Falha no download!"))} ### Verificando arquivos baixados corretamente ############################################################################## fileInfo <- file.info(fileNames); fileInfo ### observe o segundo arquivo files.OK <- fileNames[fileInfo$size>0 & !is.na(fileInfo$size)]; files.OK ### Operando arquivos baixados corretamente ############################################################################## for (b in files.OK) { t <- strsplit(b,"_|\\.")[[1]][2] XYZ <- data.frame(rep(t),t(b[b[,1],])) outName <- paste0('XYZ-', t, '.txt') write.table(XYZ, file ="termiteNIR.mod", row.names=F,append=T) message(noquote(paste(outName, "salvo em", getwd()))) } #</code> -- ====================================================================== Alexandre dos Santos Proteção Florestal IFMT - Instituto Federal de Educação, Ciência e Tecnologia de Mato Grosso Campus Cáceres Caixa Postal 244 Avenida dos Ramires, s/n Bairro: Distrito Industrial Cáceres - MT CEP: 78.200-000 Fone: (+55) 65 8132-8112 (TIM) (+55) 65 9686-6970 (VIVO) e-mails:alexandresantosbr@yahoo.com.br alexandre.santos@cas.ifmt.edu.br Lattes: http://lattes.cnpq.br/1360403201088680 ======================================================================
como seu exemplo nao e' reprodutivel e eu nao entendi o que e' a pergunta (ha' alguma?), eu bolei a seguinte solucao para a hipotese da sua pergunta ser: "como junto N arquivos e os transponho, gravando o obj combinado num unico arquivo de saida?". x = do.call(cbind, lapply(fileNames, read.table, header=TRUE)) names(x) = fileNames write.table(t(x), file='saida.mod', col.names=FALSE, row.names=TRUE, quote=FALSE) b Em 8 de julho de 2014 14:17, ASANTOS <alexandresantosbr@yahoo.com.br> escreveu:
Boa tarde pessoal,
Tenho inúmeros arquivos dpt que podem ser lidos com txt e gostaria de fazer o seguinte, ler os dados que são apenas uma coluna em cada arquivo e transpor eles, em seguida, pegar o nome do arquivo e a cada _ criar uma nova coluna, sendo um arquivo:
Cupim%20Syntermes_COLONIA%201_operario_1_c1_140616.dpt
Gostaria que a última coluna fosse os dados transpostos no arquivo e as colunas fosse: Cupim%20Syntermes, COLONIA%20, operario, 1, c1 e 140616.
Segue CRM com três arquivos:
#----------------------------------------------------------- -------------------- ### Download a partir de uma lista de links com os arquivos #----------------------------------------------------------- -------------------- # ### Obtenção de links links <- c( "https://www.dropbox.com/s/l5ofrqw01tnfmmv/Cupim%20Syntermes_COLONIA%201_ operario_1_c1_140616.dpt", "https://www.dropbox.com/s/tkxkov16z813oc6/Cupim%20Syntermes_COLONIA%201_ operario_2_c1_140616.dpt", "https://www.dropbox.com/s/hjcmw9qutwwolo0/Cupim%20Syntermes_COLONIA%201_ operario_3_c1_140616.dpt")
tokens <- gsub("^.*/s/","",dirname(links)) fileNames <- basename(links) newLinks <- file.path("http://dl.dropbox.com/s", tokens, fileNames); newLinks
for (a in newLinks) { tryCatch(download.file(a, dest=basename(a), mode='wb'), error=function(...) print("Falha no download!"))}
### Verificando arquivos baixados corretamente ############################################################ ################## fileInfo <- file.info(fileNames); fileInfo ### observe o segundo arquivo files.OK <- fileNames[fileInfo$size>0 & !is.na(fileInfo$size)]; files.OK
### Operando arquivos baixados corretamente ############################################################ ################## for (b in files.OK) { t <- strsplit(b,"_|\\.")[[1]][2] XYZ <- data.frame(rep(t),t(b[b[,1],])) outName <- paste0('XYZ-', t, '.txt') write.table(XYZ, file ="termiteNIR.mod", row.names=F,append=T) message(noquote(paste(outName, "salvo em", getwd()))) } #</code>
-- ====================================================================== Alexandre dos Santos Proteção Florestal IFMT - Instituto Federal de Educação, Ciência e Tecnologia de Mato Grosso Campus Cáceres Caixa Postal 244 Avenida dos Ramires, s/n Bairro: Distrito Industrial Cáceres - MT CEP: 78.200-000 Fone: (+55) 65 8132-8112 (TIM) (+55) 65 9686-6970 (VIVO) e-mails:alexandresantosbr@yahoo.com.br alexandre.santos@cas.ifmt.edu.br Lattes: http://lattes.cnpq.br/1360403201088680 ======================================================================
_______________________________________________ R-br mailing list R-br@listas.c3sl.ufpr.br https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br Leia o guia de postagem (http://www.leg.ufpr.br/r-br-guia) e forneça código mínimo reproduzível.
-- [image: Benilton Carvalho on about.me] Benilton Carvalho about.me/benilton <http://about.me/benilton>
Obrigado Benilton, Mas eu gostaria de utilizar separado em colunas apenas COLONIA%X e operario_X e não todo o nome do arquivo em uma única coluna, conforme a sua solução. Segue um CRM que funcione: ##Criando os arquivos x1<-rnorm(100) write.table(x1, file='Cupim%20Syntermes_COLONIA%201_operario_1_c1_140616.txt', col.names=FALSE, row.names=FALSE, quote=FALSE) x2<-rnorm(100) write.table(x2, file='Cupim%20Syntermes_COLONIA%201_operario_2_c1_140616.txt', col.names=FALSE, row.names=FALSE, quote=FALSE) x3<-rnorm(100) write.table(x3, file='Cupim%20Syntermes_COLONIA%201_operario_3_c1_140616.txt', col.names=FALSE, row.names=FALSE, quote=FALSE) #Lendo os arquivos criados fileNames <- c( "Cupim%20Syntermes_COLONIA%201_operario_1_c1_140616.txt", "Cupim%20Syntermes_COLONIA%201_operario_2_c1_140616.txt", "Cupim%20Syntermes_COLONIA%201_operario_3_c1_140616.txt") #criando arquivo único com nomes dos arquivos e transpondo conteúdo x = do.call(cbind, lapply(fileNames, read.table, header=TRUE)) names(x) = fileNames write.table(t(x), file='saida.mod', col.names=FALSE, row.names=TRUE, quote=FALSE) Em 08/07/2014 14:01, Benilton Carvalho escreveu:
#------------------------------------------------------------------------------- ### Download a partir de uma lista de links com os arquivos #------------------------------------------------------------------------------- # ### Obtenção de links links <- c( "https://www.dropbox.com/s/l5ofrqw01tnfmmv/Cupim%20Syntermes_COLONIA%201_oper...",
"https://www.dropbox.com/s/tkxkov16z813oc6/Cupim%20Syntermes_COLONIA%201_oper...",
"https://www.dropbox.com/s/hjcmw9qutwwolo0/Cupim%20Syntermes_COLONIA%201_oper...")
tokens <- gsub("^.*/s/","",dirname(links)) fileNames <- basename(links) newLinks <- file.path("http://dl.dropbox.com/s", tokens, fileNames); newLinks
for (a in newLinks) { tryCatch(download.file(a, dest=basename(a), mode='wb'), error=function(...) print("Falha no download!"))}
### Verificando arquivos baixados corretamente ############################################################################## fileInfo <- file.info <http://file.info>(fileNames); fileInfo ### observe o segundo arquivo files.OK <- fileNames[fileInfo$size>0 & !is.na <http://is.na>(fileInfo$size)]; files.OK
### Operando
-- ====================================================================== Alexandre dos Santos Proteção Florestal IFMT - Instituto Federal de Educação, Ciência e Tecnologia de Mato Grosso Campus Cáceres Caixa Postal 244 Avenida dos Ramires, s/n Bairro: Distrito Industrial Cáceres - MT CEP: 78.200-000 Fone: (+55) 65 8132-8112 (TIM) (+55) 65 9686-6970 (VIVO) e-mails:alexandresantosbr@yahoo.com.br alexandre.santos@cas.ifmt.edu.br Lattes: http://lattes.cnpq.br/1360403201088680 ======================================================================
participantes (2)
-
ASANTOS -
Benilton Carvalho