Wie konvertiert man ein Datum in YYYYDDD?

Question

Ich kann nicht herausfinden, wie man Sys.Date() in eine Zahl im Format YYYYDDD umwandelt. Wo DDD der Tag des Jahres, dh 1. JANUAR wäre 2.016.001 31. Dezember 2016365

Date <- Sys.Date() ## The Variable Date is created as 2016-01-01 
SomeFunction(Date) ## Returns 2016001 

Answer 1

Sie können nur die format Funktion wie folgt:

format(Date, '%Y%j') 

die gibt:

[1] "2016161" "2016162" "2016163" 

Wenn Sie es auf andere Weise zu formatieren, siehe ?strptime für alle möglichen Optionen.

Alternativ können Sie die year und yday Funktionen aus den data.table oder lubridate Pakete verwenden und sie zusammen mit paste0 einfügen:

library(data.table) # or: library(lubridate) 
paste0(year(Date), yday(Date)) 

, die Ihnen das gleiche Ergebnis.

---

Die Werte, die von beiden Optionen zurückgegeben werden, sind Klassenzeichen. Wickeln Sie die obigen Lösungen in as.numeric(), um reelle Zahlen zu erhalten.

---

Gebrauchte Daten:

> Date <- Sys.Date() + 1:3 
> Date 
[1] "2016-06-09" "2016-06-10" "2016-06-11" 
> class(Date) 
[1] "Date" 

Answer 2

wäre Dies sollte arbeiten, um eine neue Spalte mit dem angegebenen Datumsformat für die Erstellung von:

Date <- Sys.Date  
df$Month_Yr <- format(as.Date(df$Date), "%Y%d") 

Aber, Insbesondere beim Arbeiten mit größeren Datensätzen ist es einfacher, Folgendes zu tun:

library(data.table) 
setDT(df)[,NewDate := format(as.Date(Date), "%Y%d" 

Hoffen, dass dies hilft. Muß vielleicht basteln, wenn du nur einen Wert willst und nicht mit einem Datensatz arbeitest.

Answer 3

Hier eine Option ist mit lubridate:

library(lubridate) 
x <- Sys.Date() 
#[1] "2016-06-08" 
paste0(year(x),yday(x)) 
#[1] "2016160"