Cambiare formato della data in R

Question

ho alcuni dati molto semplici in R che ha bisogno di avere il suo formato della data è cambiato:

date midpoint 
1 31/08/2011 0.8378 
2 31/07/2011 0.8457 
3 30/06/2011 0.8147 
4 31/05/2011 0.7970 
5 30/04/2011 0.7877 
6 31/03/2011 0.7411 
7 28/02/2011 0.7624 
8 31/01/2011 0.7665 
9 31/12/2010 0.7500 
10 30/11/2010 0.7734 
11 31/10/2010 0.7511 
12 30/09/2010 0.7263 
13 31/08/2010 0.7158 
14 31/07/2010 0.7110 
15 30/06/2010 0.6921 
16 31/05/2010 0.7005 
17 30/04/2010 0.7113 
18 31/03/2010 0.7027 
19 28/02/2010 0.6973 
20 31/01/2010 0.7260 
21 31/12/2009 0.7154 
22 30/11/2009 0.7287 
23 31/10/2009 0.7375 

Piuttosto che %d/%m/%Y, vorrei che nel formato standard R di %Y-%m-%d

Come posso apportare questa modifica? Ho provato:

nzd$date <- format(as.Date(nzd$date), "%Y/%m/%d") 

Ma che appena tagliato l'anno e ha aggiunto zeri al giorno:

[1] "0031/08/20" "0031/07/20" "0030/06/20" "0031/05/20" "0030/04/20" 
[6] "0031/03/20" "0028/02/20" "0031/01/20" "0031/12/20" "0030/11/20" 
[11] "0031/10/20" "0030/09/20" "0031/08/20" "0031/07/20" "0030/06/20" 
[16] "0031/05/20" "0030/04/20" "0031/03/20" "0028/02/20" "0031/01/20" 
[21] "0031/12/20" "0030/11/20" "0031/10/20" "0030/09/20" "0031/08/20" 
[26] "0031/07/20" "0030/06/20" "0031/05/20" "0030/04/20" "0031/03/20" 
[31] "0028/02/20" "0031/01/20" "0031/12/20" "0030/11/20" "0031/10/20" 
[36] "0030/09/20" "0031/08/20" "0031/07/20" "0030/06/20" "0031/05/20" 

Grazie!

Answer 1

Ci sono due passaggi qui:

• analizzare i dati. Il tuo esempio non è completamente riproducibile, sono i dati in un file o la variabile in una variabile di testo o fattore? Supponiamo quest'ultimo, poi se si data.frame si chiama X, si può fare

X$newdate <- strptime(as.character(X$date), "%d/%m/%Y") 

Ora la colonna newdate dovrebbe essere di tipo Date.

• Formattare i dati. Questa è una questione di chiamare format() o strftime():

format(X$newdate, "%Y-%m-%d") 

Un esempio più completo:

R> nzd <- data.frame(date=c("31/08/2011", "31/07/2011", "30/06/2011"), 
+     mid=c(0.8378,0.8457,0.8147)) 
R> nzd 
     date mid 
1 31/08/2011 0.8378 
2 31/07/2011 0.8457 
3 30/06/2011 0.8147 
R> nzd$newdate <- strptime(as.character(nzd$date), "%d/%m/%Y") 
R> nzd$txtdate <- format(nzd$newdate, "%Y-%m-%d") 
R> nzd 
     date mid newdate txtdate 
1 31/08/2011 0.8378 2011-08-31 2011-08-31 
2 31/07/2011 0.8457 2011-07-31 2011-07-31 
3 30/06/2011 0.8147 2011-06-30 2011-06-30 
R> 

La differenza tra le colonne tre e quattro è il tipo: newdate è di classe Date mentre txtdate è un carattere.

Answer 2

Dopo aver letto i dati in via di textConnection, il seguente sembra funzionare:

dat <- read.table(textConnection(txt), header = TRUE) 
dat$date <- strptime(dat$date, format= "%d/%m/%Y") 
format(dat$date, format="%Y-%m-%d") 

> format(dat$date, format="%Y-%m-%d") 
[1] "2011-08-31" "2011-07-31" "2011-06-30" "2011-05-31" "2011-04-30" "2011-03-31" 
[7] "2011-02-28" "2011-01-31" "2010-12-31" "2010-11-30" "2010-10-31" "2010-09-30" 
[13] "2010-08-31" "2010-07-31" "2010-06-30" "2010-05-31" "2010-04-30" "2010-03-31" 
[19] "2010-02-28" "2010-01-31" "2009-12-31" "2009-11-30" "2009-10-31" 

> str(dat) 
'data.frame': 23 obs. of 2 variables: 
$ date : POSIXlt, format: "2011-08-31" "2011-07-31" "2011-06-30" ... 
$ midpoint: num 0.838 0.846 0.815 0.797 0.788 ... 

Answer 3

credo che

nzd$date <- as.Date(nzd$date, format = "%d/%m/%Y") 

è sufficiente.

Answer 4

Si potrebbe anche usare la funzione parse_date_time dal pacchetto lubridate:

library(lubridate) 
day<-"31/08/2011" 
as.Date(parse_date_time(day,"dmy")) 
[1] "2011-08-31" 

parse_date_time restituisce un oggetto POSIXct, in modo da utilizzare as.Date per ottenere un oggetto data. Il primo argomento di parse_date_time specifica un vettore di data, il secondo argomento specifica l'ordine in cui si verifica il formato. L'argomento orders rende lo standard parse_date_time molto flessibile.

Answer 5

nzd$date <- format(as.Date(nzd$date), "%Y/%m/%d") 

Nel codice di cui sopra, ci sono due errori. Prima di tutto, quando stai leggendo nzd$date all'interno di as.Date non stai menzionando in che formato lo stai alimentando il date. Quindi, prova il suo formato predefinito per leggerlo. Se si vede il help doc, ?as.Date vedrete

formato
Una stringa di caratteri. Se non specificato, proverà "% Y-% m-% d" quindi "% Y /% m /% d" sul primo elemento non NA e darà un errore se nessuno dei due funziona. In caso contrario, il trattamento avviene tramite strptime

Il secondo errore è: anche se si desidera leggere in formato %Y-%m-%d, all'interno format hai scritto "%Y/%m/%d".

Ora, il modo corretto di farlo è:

> nzd <- data.frame(date=c("31/08/2011", "31/07/2011", "30/06/2011"), 
+          mid=c(0.8378,0.8457,0.8147)) 
> nzd 
     date mid 
1 31/08/2011 0.8378 
2 31/07/2011 0.8457 
3 30/06/2011 0.8147 
> nzd$date <- format(as.Date(nzd$date, format = "%d/%m/%Y"), "%Y-%m-%d") 
> head(nzd) 
     date mid 
1 2011-08-31 0.8378 
2 2011-07-31 0.8457 
3 2011-06-30 0.8147