Criar um txt com cabeçalho
*Prezados listeiros,** ** ** Tenho um data frame com coordenadas geográficas sendo:* lat<-c(343248.0,342784.4,342796.2, 343084.7,343020.3,342711.5) long<-c(8212396.7,8212346.0,8212263.4,8212369.7,8212404.6,8212307.6) coords<-cbind(lat,long) * E informações adicionais como* w<-rep("w", 5) utm<-rep("utm",5) id<-seq(1:5) zon<-rep("21L", 5) id2<-seq(1:5) d1<-rep("00/00/00",5) h2<-rep("00:00:00",5) n1<-rep(0,5) n2<-rep(2,5) n3<-rep(48,5) n4<-rep(0,5) n5<-rep(13,5) *Junto tudo em um data frame:* dados<-cbind(w,utm,id,zon,lat,long,id2,d1,h2,n1,n2,n3,n4,n5) dados *Agora gostaria de criar um arquivo *txt com a função write.table(), mas antes gostaria de colocar um cabeçalho:* Version,212 WGS1984(GPS),217,6378137,298.257223563,0,0,0 USERGRID,0,0,0,0,0 *De forma que meu arquivo final em *txt ficasse***, sem os "" e separado por vírgula*: * Version,212 WGS1984(GPS),217,6378137,298.257223563,0,0,0 USERGRID,0,0,0,0,0 w,utm,1,21L,343248.0,8212396.7,1,00/00/00,00:00:00,0,2,48,0,13 w,utm,2,21L,342784.4,8212346.0,2,00/00/00,00:00:00,0,2,48,0,13 w,utm,3,21L,342796.2,8212263.4,3,00/00/00,00:00:00,0,2,48,0,13 w,utm,4,21L,343084.7,8212369.7,4,00/00/00,00:00:00,0,2,48,0,13 w,utm,5,21L,343020.3,8212404.6,5,00/00/00,00:00:00,0,2,48,0,13 *Isso é possível de fazer no R, muito obrigado, * -- ====================================================================== 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 ======================================================================
Alexandre, Enquanto nenhum expert lhe oferece uma solução mais elegante, veja como eu faria: dados = read.table("dados.txt", dec=".", sep = ",", h=T ,col.names = c( "w","utm","id","zon","lat","long","id2","d1","h2","n1","n2","n3","n4","n5")) summary(dados) # agora criaria um novo data.frame lendo o "dados" write.table(dados, file= "dados.txt", row.names= T, sep=", ", quote=F) Espero que possa ajudar.. Em 17 de agosto de 2015 00:13, ASANTOS <alexandresantosbr@yahoo.com.br> escreveu:
*Prezados listeiros,*
* Tenho um data frame com coordenadas geográficas sendo:*
lat<-c(343248.0,342784.4,342796.2, 343084.7,343020.3,342711.5) long<-c(8212396.7,8212346.0,8212263.4,8212369.7,8212404.6,8212307.6) coords<-cbind(lat,long)
* E informações adicionais como*
w<-rep("w", 5) utm<-rep("utm",5) id<-seq(1:5) zon<-rep("21L", 5) id2<-seq(1:5) d1<-rep("00/00/00",5) h2<-rep("00:00:00",5) n1<-rep(0,5) n2<-rep(2,5) n3<-rep(48,5) n4<-rep(0,5) n5<-rep(13,5)
* Junto tudo em um data frame:*
dados<-cbind(w,utm,id,zon,lat,long,id2,d1,h2,n1,n2,n3,n4,n5) dados
*Agora gostaria de criar um arquivo *txt com a função write.table(), mas antes gostaria de colocar um cabeçalho:*
Version,212
WGS1984(GPS),217,6378137,298.257223563,0,0,0 USERGRID,0,0,0,0,0
*De forma que meu arquivo final em *txt ficasse**, sem os "" e separado por vírgula: *
Version,212
WGS1984(GPS),217,6378137,298.257223563,0,0,0 USERGRID,0,0,0,0,0
w,utm,1,21L,343248.0,8212396.7,1,00/00/00,00:00:00,0,2,48,0,13 w,utm,2,21L,342784.4,8212346.0,2,00/00/00,00:00:00,0,2,48,0,13 w,utm,3,21L,342796.2,8212263.4,3,00/00/00,00:00:00,0,2,48,0,13 w,utm,4,21L,343084.7,8212369.7,4,00/00/00,00:00:00,0,2,48,0,13 w,utm,5,21L,343020.3,8212404.6,5,00/00/00,00:00:00,0,2,48,0,13
* Isso é possível de fazer no R, muito obrigado, *
-- ====================================================================== 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.
-- João Rodrigo de Castro Programa de Pós-Graduação em Meteorologia Bolsista Laboratório de Agrometeorologia - Embrapa Clima Temperado Universidade Federal de Pelotas
Obrigado João, ajudou muito, Agora preciso resolver a questão do cabeçalho, -- ====================================================================== 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 ====================================================================== Em 17/08/2015 08:11, joão Rodrigo Castro escreveu:
# agora criaria um novo data.frame lendo o "dados"
write.table(dados, file= "dados.txt", row.names= T, sep=", ", quote=F)
Faltou 1 passo antes de criar o arquivo... teste <- data.frame(dados) write.table(teste, file= "dados.txt", row.names= T, sep=", ", quote=F) Agora deve dar. Em 17 de agosto de 2015 10:30, ASANTOS <alexandresantosbr@yahoo.com.br> escreveu:
Obrigado João, ajudou muito,
Agora preciso resolver a questão do cabeçalho,
-- ====================================================================== 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 ======================================================================
Em 17/08/2015 08:11, joão Rodrigo Castro escreveu:
# agora criaria um novo data.frame lendo o "dados"
write.table(dados, file= "dados.txt", row.names= T, sep=", ", quote=F)
_______________________________________________ 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.
-- João Rodrigo de Castro Programa de Pós-Graduação em Meteorologia Bolsista Laboratório de Agrometeorologia - Embrapa Clima Temperado Universidade Federal de Pelotas
Combine writeLines() com write.table(). header <- c("Walmes Zeviani\n 2015-08-17\n\n") writeLines(text=header, con="my.txt") write.table(x=cars, file="my.txt", append=TRUE) À disposição. Walmes.
Bom dia Walmes, Quase deu quase certo, apenas preciso que: Version,212 WGS1984(GPS),217,6378137,298.257223563,0,0,0***### Dê um espaço* USERGRID,0,0,0,0,0*### Fique logo abaixo do WGS1984 sem espaço* "w." "utm." "id." "zon." "lat." "long." "id2." "d1." "h2." "n1." "n2." "n3." "n4." "n5"*### Desapareça essa linha* "1," "w," "utm," "1," "21L," "343248," "8212396.7," "1," "00/00/00," "00:00:00," "0," "2," "48," "0," 13 *### Desapareçam todos os " "* "2," "w," "utm," "2," "21L," "342784.4," "8212346," "2," "00/00/00," "00:00:00," "0," "2," "48," "0," 13 "3," "w," "utm," "3," "21L," "342796.2," "8212263.4," "3," "00/00/00," "00:00:00," "0," "2," "48," "0," 13 "4," "w," "utm," "4," "21L," "343084.7," "8212369.7," "4," "00/00/00," "00:00:00," "0," "2," "48," "0," 13 "5," "w," "utm," "5," "21L," "343020.3," "8212404.6," "5," "00/00/00," "00:00:00," "0," "2," "48," "0," 13 Segue CRM: lat<-c(343248.0,342784.4,342796.2, 343084.7,343020.3) long<-c(8212396.7,8212346.0,8212263.4,8212369.7,8212404.6) coords<-cbind(lat,long) w<-rep("w", 5) utm<-rep("utm",5) id<-seq(1:5) zon<-rep("21L", 5) id2<-seq(1:5) d1<-rep("00/00/00",5) h2<-rep("00:00:00",5) n1<-rep(0,5) n2<-rep(2,5) n3<-rep(48,5) n4<-rep(0,5) n5<-rep(13,5) dados<-cbind(w,utm,id,zon,lat,long,id2,d1,h2,n1,n2,n3,n4,n5) dados dados = read.table("dados.txt", dec=".", sep = ",", h=T ,col.names = c( "w","utm","id","zon","lat","long","id2","d1","h2","n1","n2","n3","n4","n5")) summary(dados) write.table(dados, file= "dados.txt", row.names= T, sep=", ", quote=F) dados = read.table("dados.txt", h=T) header <- c("Version,212\nWGS1984(GPS),217,6378137,298.257223563,0,0,0\n\n USERGRID,0,0,0,0,0\n\n") writeLines(text=header, con="dados_f.txt") write.table(x=dados, file="dados_f.txt", append=TRUE) Obrigado, -- ====================================================================== 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 ====================================================================== Em 17/08/2015 09:58, Walmes Zeviani escreveu:
Combine writeLines() com write.table().
header <- c("Walmes Zeviani\n 2015-08-17\n\n") writeLines(text=header, con="my.txt") write.table(x=cars, file="my.txt", append=TRUE)
À disposição. Walmes.
_______________________________________________ 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.
Sobre o cabeçalho, as duas primeiras é formatação de string, dever de casa, tentativa erro na pior das hipóteses. Já a tabela, veja a documentação da write.table(), argumentos quote= e header= se eu não me engano. À disposição. W.
Prezados listeiros, Quase consegui fazer o que queria no meu dados_f.txt, alguém teria alguma solução de como remover os sinais " ", no meu txt final? Segue CRM: lat<-c(343248.0,342784.4,342796.2, 343084.7,343020.3) long<-c(8212396.7,8212346.0,8212263.4,8212369.7,8212404.6) coords<-cbind(lat,long) w<-rep("w", 5) utm<-rep("utm",5) id<-seq(1:5) zon<-rep("21L", 5) id2<-seq(1:5) d1<-rep("00/00/00",5) h2<-rep("00:00:00",5) n1<-rep(0,5) n2<-rep(2,5) n3<-rep(48,5) n4<-rep(0,5) n5<-rep(13,5) dados<-cbind(w,utm,id,zon,lat,long,id2,d1,h2,n1,n2,n3,n4,n5) dados dados = read.table("dados.txt", dec=".", sep = ",", h=T ,col.names = c("w","utm","id","zon","lat","long","id2","d1","h2","n1","n2","n3","n4","n5")) summary(dados) write.table(dados, file= "dados.txt", row.names= T, sep=", ", quote=F) dados = read.table("dados.txt", h=T) names(dados) <- NULL header <- c("Version,212\n\nWGS1984(GPS),217,6378137,298.257223563,0,0,0\nUSERGRID,0,0,0,0,0\n") writeLines(text=header, con="dados_f.txt") write.table(x=dados, file="dados_f.txt", append=TRUE) Obrigado, -- ====================================================================== 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 ====================================================================== Em 17/08/2015 10:55, ASANTOS escreveu:
Bom dia Walmes,
Quase deu quase certo, apenas preciso que:
Version,212 WGS1984(GPS),217,6378137,298.257223563,0,0,0***### Dê um espaço*
USERGRID,0,0,0,0,0*### Fique logo abaixo do WGS1984 sem espaço*
"w." "utm." "id." "zon." "lat." "long." "id2." "d1." "h2." "n1." "n2." "n3." "n4." "n5"*### Desapareça essa linha* "1," "w," "utm," "1," "21L," "343248," "8212396.7," "1," "00/00/00," "00:00:00," "0," "2," "48," "0," 13 *### Desapareçam todos os " "* "2," "w," "utm," "2," "21L," "342784.4," "8212346," "2," "00/00/00," "00:00:00," "0," "2," "48," "0," 13 "3," "w," "utm," "3," "21L," "342796.2," "8212263.4," "3," "00/00/00," "00:00:00," "0," "2," "48," "0," 13 "4," "w," "utm," "4," "21L," "343084.7," "8212369.7," "4," "00/00/00," "00:00:00," "0," "2," "48," "0," 13 "5," "w," "utm," "5," "21L," "343020.3," "8212404.6," "5," "00/00/00," "00:00:00," "0," "2," "48," "0," 13
Segue CRM:
lat<-c(343248.0,342784.4,342796.2, 343084.7,343020.3) long<-c(8212396.7,8212346.0,8212263.4,8212369.7,8212404.6) coords<-cbind(lat,long)
w<-rep("w", 5) utm<-rep("utm",5) id<-seq(1:5) zon<-rep("21L", 5) id2<-seq(1:5) d1<-rep("00/00/00",5) h2<-rep("00:00:00",5) n1<-rep(0,5) n2<-rep(2,5) n3<-rep(48,5) n4<-rep(0,5) n5<-rep(13,5)
dados<-cbind(w,utm,id,zon,lat,long,id2,d1,h2,n1,n2,n3,n4,n5) dados
dados = read.table("dados.txt", dec=".", sep = ",", h=T ,col.names = c( "w","utm","id","zon","lat","long","id2","d1","h2","n1","n2","n3","n4","n5")) summary(dados)
write.table(dados, file= "dados.txt", row.names= T, sep=", ", quote=F)
dados = read.table("dados.txt", h=T)
header <- c("Version,212\nWGS1984(GPS),217,6378137,298.257223563,0,0,0\n\n USERGRID,0,0,0,0,0\n\n") writeLines(text=header, con="dados_f.txt") write.table(x=dados, file="dados_f.txt", append=TRUE)
Obrigado,
-- ====================================================================== 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 ======================================================================
Em 17/08/2015 09:58, Walmes Zeviani escreveu:
Combine writeLines() com write.table().
header <- c("Walmes Zeviani\n 2015-08-17\n\n") writeLines(text=header, con="my.txt") write.table(x=cars, file="my.txt", append=TRUE)
À disposição. Walmes.
_______________________________________________ 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.
_______________________________________________ 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.
Alexandre, substitua o último comando de seu CMR pelo seguinte: write.table(x=dados, file="dados_f.txt", append=TRUE, quote=FALSE). 2015-08-17 17:19 GMT-03:00 ASANTOS <alexandresantosbr@yahoo.com.br>:
Prezados listeiros,
Quase consegui fazer o que queria no meu dados_f.txt, alguém teria alguma solução de como remover os sinais " ", no meu txt final?
Segue CRM:
lat<-c(343248.0,342784.4,342796.2, 343084.7,343020.3) long<-c(8212396.7,8212346.0,8212263.4,8212369.7,8212404.6) coords<-cbind(lat,long)
w<-rep("w", 5) utm<-rep("utm",5) id<-seq(1:5) zon<-rep("21L", 5) id2<-seq(1:5) d1<-rep("00/00/00",5) h2<-rep("00:00:00",5) n1<-rep(0,5) n2<-rep(2,5) n3<-rep(48,5) n4<-rep(0,5) n5<-rep(13,5)
dados<-cbind(w,utm,id,zon,lat,long,id2,d1,h2,n1,n2,n3,n4,n5) dados
dados = read.table("dados.txt", dec=".", sep = ",", h=T ,col.names = c("w","utm","id","zon","lat","long","id2","d1","h2","n1","n2","n3","n4","n5")) summary(dados)
write.table(dados, file= "dados.txt", row.names= T, sep=", ", quote=F)
dados = read.table("dados.txt", h=T) names(dados) <- NULL
header <- c("Version,212\n\nWGS1984(GPS),217,6378137,298.257223563,0,0,0\nUSERGRID,0,0,0,0,0\n") writeLines(text=header, con="dados_f.txt") write.table(x=dados, file="dados_f.txt", append=TRUE)
Obrigado,
-- ====================================================================== 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 ======================================================================
Em 17/08/2015 10:55, ASANTOS escreveu:
Bom dia Walmes,
Quase deu quase certo, apenas preciso que:
Version,212 WGS1984(GPS),217,6378137,298.257223563,0,0,0 *### Dê um espaço*
USERGRID,0,0,0,0,0*### Fique logo abaixo do WGS1984 sem espaço*
"w." "utm." "id." "zon." "lat." "long." "id2." "d1." "h2." "n1." "n2." "n3." "n4." "n5"* ### Desapareça essa linha* "1," "w," "utm," "1," "21L," "343248," "8212396.7," "1," "00/00/00," "00:00:00," "0," "2," "48," "0," 13 *### Desapareçam todos os " "* "2," "w," "utm," "2," "21L," "342784.4," "8212346," "2," "00/00/00," "00:00:00," "0," "2," "48," "0," 13 "3," "w," "utm," "3," "21L," "342796.2," "8212263.4," "3," "00/00/00," "00:00:00," "0," "2," "48," "0," 13 "4," "w," "utm," "4," "21L," "343084.7," "8212369.7," "4," "00/00/00," "00:00:00," "0," "2," "48," "0," 13 "5," "w," "utm," "5," "21L," "343020.3," "8212404.6," "5," "00/00/00," "00:00:00," "0," "2," "48," "0," 13
Segue CRM:
lat<-c(343248.0,342784.4,342796.2, 343084.7,343020.3) long<-c(8212396.7,8212346.0,8212263.4,8212369.7,8212404.6) coords<-cbind(lat,long)
w<-rep("w", 5) utm<-rep("utm",5) id<-seq(1:5) zon<-rep("21L", 5) id2<-seq(1:5) d1<-rep("00/00/00",5) h2<-rep("00:00:00",5) n1<-rep(0,5) n2<-rep(2,5) n3<-rep(48,5) n4<-rep(0,5) n5<-rep(13,5)
dados<-cbind(w,utm,id,zon,lat,long,id2,d1,h2,n1,n2,n3,n4,n5) dados
dados = read.table("dados.txt", dec=".", sep = ",", h=T ,col.names = c( "w","utm","id","zon","lat","long","id2","d1","h2","n1","n2","n3","n4","n5")) summary(dados)
write.table(dados, file= "dados.txt", row.names= T, sep=", ", quote=F)
dados = read.table("dados.txt", h=T)
header <- c("Version,212\nWGS1984(GPS),217,6378137,298.257223563,0,0,0\n\n USERGRID,0,0,0,0,0\n\n") writeLines(text=header, con="dados_f.txt") write.table(x=dados, file="dados_f.txt", append=TRUE)
Obrigado,
-- ====================================================================== 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 ======================================================================
Em 17/08/2015 09:58, Walmes Zeviani escreveu:
Combine writeLines() com write.table().
header <- c("Walmes Zeviani\n 2015-08-17\n\n") writeLines(text=header, con="my.txt") write.table(x=cars, file="my.txt", append=TRUE)
À disposição. Walmes.
_______________________________________________ R-br mailing listR-br@listas.c3sl.ufpr.brhttps://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.
_______________________________________________ R-br mailing listR-br@listas.c3sl.ufpr.brhttps://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.
_______________________________________________ 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.
-- Marcus Nunes http://marcusnunes.me/
Muito obrigado Marcus, resolvido!!!!! De:"Marcus Nunes" <marcus.nunes@gmail.com> Data:17:20 Seg, 17 de Ago de PM Assunto:Re: [R-br] Criar um txt com cabeçalho Alexandre, substitua o último comando de seu CMR pelo seguinte: write.table(x=dados, file="dados_f.txt", append=TRUE, quote=FALSE). 2015-08-17 17:19 GMT-03:00 ASANTOS <alexandresantosbr@yahoo.com.br>: Prezados listeiros, Quase consegui fazer o que queria no meu dados_f.txt, alguém teria alguma solução de como remover os sinais " ", no meu txt final? Segue CRM: lat<-c(343248.0,342784.4,342796.2, 343084.7,343020.3) long<-c(8212396.7,8212346.0,8212263.4,8212369.7,8212404.6) coords<-cbind(lat,long) w<-rep("w", 5) utm<-rep("utm",5) id<-seq(1:5) zon<-rep("21L", 5) id2<-seq(1:5) d1<-rep("00/00/00",5) h2<-rep("00:00:00",5) n1<-rep(0,5) n2<-rep(2,5) n3<-rep(48,5) n4<-rep(0,5) n5<-rep(13,5) dados<-cbind(w,utm,id,zon,lat,long,id2,d1,h2,n1,n2,n3,n4,n5) dados dados = read.table("dados.txt", dec=".", sep = ",", h=T ,col.names = c("w","utm","id","zon","lat","long","id2","d1","h2","n1","n2","n3","n4","n5")) summary(dados) write.table(dados, file= "dados.txt", row.names= T, sep=", ", quote=F) dados = read.table("dados.txt", h=T) names(dados) <- NULL header <- c("Version,212\n\nWGS1984(GPS),217,6378137,298.257223563,0,0,0\nUSERGRID,0,0,0,0,0\n") writeLines(text=header, con="dados_f.txt") write.table(x=dados, file="dados_f.txt", append=TRUE) Obrigado, -- ====================================================================== 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 ====================================================================== Em 17/08/2015 10:55, ASANTOS escreveu: Bom dia Walmes, Quase deu quase certo, apenas preciso que: Version,212 WGS1984(GPS),217,6378137,298.257223563,0,0,0 ### Dê um espaço USERGRID,0,0,0,0,0### Fique logo abaixo do WGS1984 sem espaço "w." "utm." "id." "zon." "lat." "long." "id2." "d1." "h2." "n1." "n2." "n3." "n4." "n5" ### Desapareça essa linha "1," "w," "utm," "1," "21L," "343248," "8212396.7," "1," "00/00/00," "00:00:00," "0," "2," "48," "0," 13 ### Desapareçam todos os " " "2," "w," "utm," "2," "21L," "342784.4," "8212346," "2," "00/00/00," "00:00:00," "0," "2," "48," "0," 13 "3," "w," "utm," "3," "21L," "342796.2," "8212263.4," "3," "00/00/00," "00:00:00," "0," "2," "48," "0," 13 "4," "w," "utm," "4," "21L," "343084.7," "8212369.7," "4," "00/00/00," "00:00:00," "0," "2," "48," "0," 13 "5," "w," "utm," "5," "21L," "343020.3," "8212404.6," "5," "00/00/00," "00:00:00," "0," "2," "48," "0," 13 Segue CRM: lat<-c(343248.0,342784.4,342796.2, 343084.7,343020.3) long<-c(8212396.7,8212346.0,8212263.4,8212369.7,8212404.6) coords<-cbind(lat,long) w<-rep("w", 5) utm<-rep("utm",5) id<-seq(1:5) zon<-rep("21L", 5) id2<-seq(1:5) d1<-rep("00/00/00",5) h2<-rep("00:00:00",5) n1<-rep(0,5) n2<-rep(2,5) n3<-rep(48,5) n4<-rep(0,5) n5<-rep(13,5) dados<-cbind(w,utm,id,zon,lat,long,id2,d1,h2,n1,n2,n3,n4,n5) dados dados = read.table("dados.txt", dec=".", sep = ",", h=T ,col.names = c( "w","utm","id","zon","lat","long","id2","d1","h2","n1","n2","n3","n4","n5")) summary(dados) write.table(dados, file= "dados.txt", row.names= T, sep=", ", quote=F) dados = read.table("dados.txt", h=T) header <- c("Version,212\nWGS1984(GPS),217,6378137,298.257223563,0,0,0\n\n USERGRID,0,0,0,0,0\n\n") writeLines(text=header, con="dados_f.txt") write.table(x=dados, file="dados_f.txt", append=TRUE) Obrigado, -- ====================================================================== 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 ====================================================================== Em 17/08/2015 09:58, Walmes Zeviani escreveu: Combine writeLines() com write.table(). header <- c("Walmes Zeviani\n 2015-08-17\n\n") writeLines(text=header, con="my.txt") write.table(x=cars, file="my.txt", append=TRUE) À disposição. Walmes. _______________________________________________ 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. _______________________________________________ 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. _______________________________________________ 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. -- Marcus Nunes http://marcusnunes.me/ _______________________________________________ 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.
participantes (5)
-
Alexandre Santos -
ASANTOS
-
joão Rodrigo Castro -
Marcus Nunes -
Walmes Zeviani