Extract tháng, năm từ một đối tượng sở thú :: yearmon

Question

Tôi có một đối tượng yearmon:

require(zoo) 
date1 <- as.yearmon("Mar 2012", "%b %Y") 
class(date1) 
# [1] "yearmon" 

Làm thế nào tôi có thể trích xuất các tháng, năm từ này?

month1 <- fn(date1) 
year1 <- fn(date1) 

chức năng gì tôi nên sử dụng ở vị trí của fn()

Answer 1

Sử dụng phương pháp format() cho các đối tượng của lớp "yearmon". Đây là ngày ví dụ của bạn (đúng tạo ra!)

date1 <- as.yearmon("Mar 2012", "%b %Y") 

Sau đó, chúng ta có thể trích xuất các phần cập nhật theo yêu cầu:

> format(date1, "%b") ## Month, char, abbreviated 
[1] "Mar" 
> format(date1, "%Y") ## Year with century 
[1] "2012" 
> format(date1, "%m") ## numeric month 
[1] "03" 

Đây là những trở như ký tự. Nếu thích hợp, hãy bọc trong as.numeric() nếu bạn muốn tháng năm hoặc tháng số dưới dạng biến số, ví dụ:

> as.numeric(format(date1, "%m")) 
[1] 3 
> as.numeric(format(date1, "%Y")) 
[1] 2012 

Xem ?yearmon và ?strftime để biết chi tiết - sau này giải thích các nhân vật giữ chỗ bạn có thể sử dụng.

Answer 2

Bạn có thể sử dụng format:

library(zoo) 
x <- as.yearmon(Sys.time()) 
format(x,"%b") 
[1] "Mar" 
format(x,"%Y") 
[1] "2012" 

Answer 3

Các lubridate package là tuyệt vời cho các loại hình điều:

> require(lubridate) 
> month(date1) 
[1] 3 
> year(date1) 
[1] 2012 

Answer 4

Tôi biết OP đang sử dụng zoo ở đây, nhưng tôi thấy chủ đề này googling cho một giải pháp tiêu chuẩn ts cho cùng một vấn đề. Vì vậy, tôi nghĩ tôi cũng sẽ thêm một câu trả lời miễn phí zoo cho ts.

# create an example Date 
date_1 <- as.Date("1990-01-01") 
# extract year 
as.numeric(format(date_1, "%Y")) 
# extract month 
as.numeric(format(date_1, "%m")) 

Answer 5

Đối với vectơ lớn:

y = as.POSIXlt(date1)$year + 1900 # x$year : years since 1900 
m = as.POSIXlt(date1)$mon + 1  # x$mon : 0–11 

Answer 6

Câu hỏi đặt ra không nêu chính xác những gì đầu ra được kỳ vọng nhưng giả định rằng trong tháng bạn muốn số tháng (tháng = 1) và năm tài chính bạn muốn số 4 chữ số năm sau đó giả định rằng chúng tôi vừa chạy mã trong câu hỏi:

cycle(date1) 
## [1] 3 
as.integer(date1) 
## [1] 2012