[R-br] Impressão do objeto Date
David Feitosa
davidfeitosa em gmail.com
Quarta Maio 27 22:22:50 BRT 2015
Boa noite!
Estou deparando-me com um pequeno problema:
Tenho um data.frame que desejo cortar de acordo com o valor de uma coluna.
Esta coluna está em formato de data com hora: YYYY-MM-DD HH:MM:SS
Minha intenção é de criar um diretório com a data e um arquivo dentro de
cada diretório.
Ex: <dir>/data/2015-02-02/saida.csv , <dir>/data/2015-02-03/saida.csv ,
<dir>/data/2015-02-04/saida.csv etc
Entretanto, o que está sendo impresso, e, criado como diretório,
é a representação interna do objeto Date
Ex: <dir>/data/16467/saida.csv , <dir>/data/16468/saida.csv ,
<dir>/data/16469/saida.csv etc
Já tentei usar as.character(), format(), mas estou ficando sem ideias de
como "corrigir".
Alguém já passou por isso ou teria alguma sugestão por favor?
Segue trecho de código pertinente com um pedaço dos dados:
library(R.utils)
lines <- "
5928671,14,-3.831290,-38.50146,2015-02-01 00:00:01
5926098,44,-3.709390,-38.58986,2015-02-02 00:01:13
5915217,145,-3.743671,-38.48788,2015-02-03 00:01:16
5444641,174,-3.766271,-38.57452,2015-02-01 00:01:38
2250561,977,-3.738654,-38.48400,2015-02-02 00:01:47
5671754,14,-3.831290,-38.50146,2015-02-03 00:02:43
"
con <- textConnection(lines)
df <- read.csv(con, header = F)
close(con)
for (dia in unique(as.Date(df[,5]))){
dfi <- df[as.Date(df[,5]) == dia,]
diretorio <- paste(getwd(), "rsc/data", format(dia, format =
"%Y-%m-%d"),
sep = "/", collapse = "")
mkdirs(diretorio)
write.csv(dfi, paste(diretorio, "saida.csv", sep = "/", collapse = ""))
}
Dados do ambiente:
R version 3.2.0 (2015-04-16) -- "Full of Ingredients"
Platform: i386-w64-mingw32/i386 (32-bit)
Atenciosamente,
David Feitosa
(\_(\
(=°;°)
(("")("")
-------------- Próxima Parte ----------
Um anexo em HTML foi limpo...
URL: <http://listas.inf.ufpr.br/pipermail/r-br/attachments/20150527/25925bcd/attachment.html>
Mais detalhes sobre a lista de discussão R-br