[R-br] Criar um txt com cabeçalho

[joão Rodrigo Castro]

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 em 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 em yahoo.com.br
>         alexandre.santos em cas.ifmt.edu.br
> Lattes: http://lattes.cnpq.br/1360403201088680
> ======================================================================
>
>
> _______________________________________________
> R-br mailing list
> R-br em 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
-------------- Próxima Parte ----------
Um anexo em HTML foi limpo...
URL: <http://listas.inf.ufpr.br/pipermail/r-br/attachments/20150817/8c09f7a0/attachment.html>