Làm thế nào để chuyển đổi một ngày thành YYYYDDD?

Question

Tôi không thể tìm ra cách để biến Sys.Date() thành một số trong định dạng YYYYDDD. Nơi DDD là ngày trong năm, tức là ngày 01 tháng 1 sẽ là 2.016.001 ngày 31 tháng 12 sẽ là 2016365

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

Answer 1

Bạn chỉ có thể sử dụng chức năng format như sau:

format(Date, '%Y%j') 

mang đến cho:

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

Nếu bạn muốn định dạng nó theo những cách khác, xem ?strptime cho tất cả các tùy chọn có thể.

Ngoài ra, bạn có thể sử dụng year và yday chức năng từ data.table hoặc lubridate gói và dán chúng lại với nhau với paste0:

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

mà sẽ cung cấp cho bạn kết quả tương tự.

---

Giá trị được trả về bởi cả hai tùy chọn là ký tự lớp. Quấn các giải pháp trên vào as.numeric() để nhận số thực.

---

đã qua sử dụng dữ liệu:

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

Answer 2

này nên làm việc để tạo một cột mới với định dạng ngày được chỉ định:

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

Nhưng, đặc biệt là khi làm việc với các tập dữ liệu lớn hơn, việc thực hiện những việc sau dễ dàng hơn:

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

Hy vọng điều này sẽ hữu ích. Có thể phải tinker nếu bạn chỉ muốn một giá trị và không làm việc với một tập hợp dữ liệu.

Answer 3

Dưới đây là một lựa chọn với lubridate:

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