<div dir="ltr"><div><div><div>Alexandre,<br>Enquanto nenhum expert lhe oferece uma solução mais elegante, veja como eu faria:<br><br></div><br>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"))<br>summary(dados)<br><br></div># agora criaria um novo data.frame lendo o "dados"<br><br>write.table(dados, file= "dados.txt", row.names= T, sep=", ", quote=F)<br><br></div>Espero que possa ajudar..<br></div><div class="gmail_extra"><br><div class="gmail_quote">Em 17 de agosto de 2015 00:13, ASANTOS <span dir="ltr"><<a href="mailto:alexandresantosbr@yahoo.com.br" target="_blank">alexandresantosbr@yahoo.com.br</a>></span> escreveu:<br><blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex">
<div bgcolor="#FFFFFF" text="#000000">
<b>Prezados listeiros,</b><b><br>
</b><b><br>
</b><b> Tenho um data frame com coordenadas geográficas
sendo:</b><br>
<br>
lat<-c(343248.0,342784.4,342796.2, 343084.7,343020.3,342711.5)<br>
long<-c(8212396.7,8212346.0,8212263.4,8212369.7,8212404.6,8212307.6)<br>
coords<-cbind(lat,long)<br>
<br>
<b> E informações adicionais como</b><br>
<br>
w<-rep("w", 5)<br>
utm<-rep("utm",5)<br>
id<-seq(1:5)<br>
zon<-rep("21L", 5)<br>
id2<-seq(1:5)<br>
d1<-rep("00/00/00",5)<br>
h2<-rep("00:00:00",5)<br>
n1<-rep(0,5)<br>
n2<-rep(2,5)<br>
n3<-rep(48,5)<br>
n4<-rep(0,5)<br>
n5<-rep(13,5)<br>
<br>
<br>
<b> Junto tudo em um data frame:</b><br>
<br>
dados<-cbind(w,utm,id,zon,lat,long,id2,d1,h2,n1,n2,n3,n4,n5)<br>
dados<br>
<br>
<b>Agora gostaria de criar um arquivo *txt com a
função write.table(), mas antes gostaria de colocar um cabeçalho:</b><br>
<br>
Version,212<br>
<br>
WGS1984(GPS),217,6378137,298.257223563,0,0,0<br>
USERGRID,0,0,0,0,0<br>
<br>
<b>De forma que meu arquivo final em *txt ficasse</b><b><b>,
sem os "" e separado por vírgula</b>: </b> <br>
<br>
Version,212<br>
<br>
WGS1984(GPS),217,6378137,298.257223563,0,0,0<br>
USERGRID,0,0,0,0,0<br>
<br>
w,utm,1,21L,343248.0,8212396.7,1,00/00/00,00:00:00,0,2,48,0,13<br>
w,utm,2,21L,342784.4,8212346.0,2,00/00/00,00:00:00,0,2,48,0,13<br>
w,utm,3,21L,342796.2,8212263.4,3,00/00/00,00:00:00,0,2,48,0,13<br>
w,utm,4,21L,343084.7,8212369.7,4,00/00/00,00:00:00,0,2,48,0,13<br>
w,utm,5,21L,343020.3,8212404.6,5,00/00/00,00:00:00,0,2,48,0,13<br>
<br>
<br>
<b> Isso é possível de fazer no R, muito obrigado, </b><br>
<br>
<br>
<pre cols="72">--
======================================================================
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: <a href="tel:%28%2B55%29%2065%208132-8112" value="+556581328112" target="_blank">(+55) 65 8132-8112</a> (TIM) <a href="tel:%28%2B55%29%2065%209686-6970" value="+556596866970" target="_blank">(+55) 65 9686-6970</a> (VIVO)
<a href="mailto:e-mails:alexandresantosbr@yahoo.com.br" target="_blank">e-mails:alexandresantosbr@yahoo.com.br</a>
<a href="mailto:alexandre.santos@cas.ifmt.edu.br" target="_blank">alexandre.santos@cas.ifmt.edu.br</a>
Lattes: <a href="http://lattes.cnpq.br/1360403201088680" target="_blank">http://lattes.cnpq.br/1360403201088680</a>
======================================================================
</pre>
</div>
<br>_______________________________________________<br>
R-br mailing list<br>
<a href="mailto:R-br@listas.c3sl.ufpr.br">R-br@listas.c3sl.ufpr.br</a><br>
<a href="https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br" rel="noreferrer" target="_blank">https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br</a><br>
Leia o guia de postagem (<a href="http://www.leg.ufpr.br/r-br-guia" rel="noreferrer" target="_blank">http://www.leg.ufpr.br/r-br-guia</a>) e forneça código mínimo reproduzível.<br></blockquote></div><br><br clear="all"><br>-- <br><div class="gmail_signature"><div dir="ltr"><div><div dir="ltr"><font color="#666666">João Rodrigo de Castro</font><div><font color="#666666">Programa de Pós-Graduação em Meteorologia</font></div><div><font color="#666666">Bolsista Laboratório de Agrometeorologia - Embrapa Clima Temperado</font></div><div><font color="#666666">Universidade Federal de Pelotas</font></div></div></div></div></div>
</div>