[R-br] RES: Formatando datas

[Éder Comunello]

Senhores, boa tarde!

Mais uma sugestão...

d <- c(4042009, 27072009, 6082010)
d <- sprintf('%08.0f', d)
date <- as.Date(d, "%d%m%Y"); date
# [1] "2009-04-04" "2009-07-27" "2010-08-06"
format(date, "%d/%m/%Y")
# [1] "04/04/2009" "27/07/2009" "06/08/2010"

​
================================================
Éder Comunello
PhD Student in Agricultural Systems Engineering (USP/Esalq)
Brazilian Agricultural Research Corporation (Embrapa)
Dourados, MS, Brazil [22 16.5'S, 54 49.0'W]




Em 12 de janeiro de 2016 16:19, Manoel Galdino <mcz.fea em gmail.com> escreveu:

> Assim funciona para colocar o zero:
>
> data <- ifelse(nchar(data) == 7, paste("0",data, sep=""), data)
> as.Date(as.character(data), '%d%m%Y')
>
> 2016-01-12 15:12 GMT-02:00 Leonard de Assis <assis.leonard em gmail.com>:
>
>> Acho que tem que converter isso pra string e preencher o início com ZERO,
>> caso o dia seja entre 1 e 9.
>>
>>
>>
>> Depois é só usar as.date(sua var string, '%d/%m/%Y')
>>
>>
>>
>> Não lembro como colocar ZERO antes
>>
>>
>>
>> *De:* R-br [mailto:r-br-bounces em listas.c3sl.ufpr.br] *Em nome de *Wagner
>> Tassinari
>> *Enviada em:* terça-feira, 12 de janeiro de 2016 12:00
>> *Para:* r-br em listas.c3sl.ufpr.br
>> *Assunto:* [R-br] Formatando datas
>>
>>
>>
>> Olá pessoal,
>>
>> Estou com um probleminha. Em meu banco de dados, minha variável data se
>> encontra desta forma:
>>
>>
>> > data
>>
>>  [1]  4042009  4042009 27072009 27072009 27072009  6082010  6082010  6082010
>>
>>  [9]  6082010  6082010
>>
>> > library(chron)
>>
>> > data2 = chron(dates=data, format=c('dd/mm/yy'))
>>
>> > data2
>>
>>  [1] 24/Aug/13036 24/Aug/13036 23/Aug/76090 23/Aug/76090 23/Aug/76090 24/Dec/18621
>>
>>  [7] 24/Dec/18621 24/Dec/18621 24/Dec/18621 24/Dec/18621
>>
>> O certo seria:
>>
>>
>> [1] 04/04/2009 04/04/2009 27/07/2009 27/07/2009 06/08/2010 ...
>>
>> Alguém poderia me dar uma dica ?
>>
>> Obrigado
>>
>>
>>
>> --
>>
>> Wagner S. Tassinari
>> Departamento de Matemática
>> Universidade Federal Rural do Rio de Janeiro.
>> BR-465, Km 7 - Seropedica, RJ - Brasil
>> CEP: 23890-000
>> Skype: wagner.tassinari
>> wtassinari em gmail.com
>> tassinari em ufrrj.br
>> -------------------------------------------------------
>> "Statistical thinking will one day be as necessary for efficient
>> citizenship as the ability to read and write."  (H.G.Wellis)
>>
>>
>> <https://www.avast.com/sig-email?utm_medium=email&utm_source=link&utm_campaign=sig-email&utm_content=webmail>
>>
>> Este e-mail foi enviado por um computador sem vírus e protegido pelo
>> Avast.
>> www.avast.com
>> <https://www.avast.com/sig-email?utm_medium=email&utm_source=link&utm_campaign=sig-email&utm_content=webmail>
>>
>>
>>
>> _______________________________________________
>> 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.
>>
>
>
>
> --
> Manoel Galdino
> https://sites.google.com/site/galdinomcz/
>
> _______________________________________________
> 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.
>
-------------- Próxima Parte ----------
Um anexo em HTML foi limpo...
URL: <http://listas.inf.ufpr.br/pipermail/r-br/attachments/20160114/951ddc62/attachment.html>