que tienen un objeto yearmon:Extracto mes y año a partir de un objeto zoológico :: yearmon
require(zoo)
date1 <- as.yearmon("Mar 2012", "%b %Y")
class(date1)
# [1] "yearmon"
¿Cómo puedo extraer el mes y el año de esto?
month1 <- fn(date1)
year1 <- fn(date1)
Qué función debería utilizar en lugar de fn()
utilizar el método de format() de objetos de la clase "yearmon". Aquí es su fecha de ejemplo (creado correctamente!)
date1 <- as.yearmon("Mar 2012", "%b %Y")
entonces podemos extraer las partes de la fecha según sea necesario:
> format(date1, "%b") ## Month, char, abbreviated
[1] "Mar"
> format(date1, "%Y") ## Year with century
[1] "2012"
> format(date1, "%m") ## numeric month
[1] "03"
Estos son devueltos como caracteres. Cuando corresponda, envuelva en as.numeric() si quiere el año o el mes numérico como una variable numérica, p.
> as.numeric(format(date1, "%m"))
[1] 3
> as.numeric(format(date1, "%Y"))
[1] 2012
Ver ?yearmon y ?strftime para los detalles - el último explica los caracteres de marcador de posición que puede utilizar.
Puede utilizar format:
library(zoo)
x <- as.yearmon(Sys.time())
format(x,"%b")
[1] "Mar"
format(x,"%Y")
[1] "2012"
¿Cómo puedo hacer que el mes sea un número? (por ejemplo, 3 para Mar?) –
@ user1169210 'formato (x,"% m ")' – James
@ user1169210 Cubrí esto en mi respuesta. Desea 'as.numeric (formato (x,"% m "))' para el mes como un valor numérico, por ejemplo. –
El lubridate package es increíble para este tipo de cosas:
> require(lubridate)
> month(date1)
[1] 3
> year(date1)
[1] 2012
Ha gracias por esta respuesta. Sobre todo supera a las otras soluciones cuando desea hacer algo como if (year (date1)> 2014) {year (date1) <- year (date1) - 100} – Vincent
esto fue definitivamente la mejor respuesta para mis requisitos de tomar el año de las fechas de inicio de 4000 contratos. – d8aninja
@Ari B. Friedman actualmente estoy usando R 3.1.0 mientras que esto no soporta el paquete 'lubridate' y traté de instalar este y el año usado (fecha) pero da el día en lugar del año ¿esto solo funciona en las fechas cuyo formato es "2015-05-06"? – KRU
Sé el PO está utilizando zoo aquí, pero me encontré con este hilo de google para una solución estándar ts por el mismo problema. Así que pensé que agregaría una respuesta libre de zoo para ts también.
# 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"))
Para grandes vectores:
y = as.POSIXlt(date1)$year + 1900 # x$year : years since 1900
m = as.POSIXlt(date1)$mon + 1 # x$mon : 0–11
Esta es la mejor respuesta, ya que R ya proporciona el práctico objeto 'POSIXlt' que hace innecesario el paquete de zoológico –
La pregunta no ha precisado por lo que la producción se espera pero suponiendo que para el mes que desea que el número de meses (enero = 1) y para el año que desea que el año numérico de 4 dígitos y luego suponiendo que acabamos de ejecutar el código en la pregunta:
cycle(date1)
## [1] 3
as.integer(date1)
## [1] 2012
% B para el mes completo, es decir, marzo "en lugar" de "Mar" – PatrickT
¿Cómo haré eso si tuviera un 'vector' de n elementos, digamos 1k fechas en un' vector'? – Stophface
@Chrissl gusta mucho de R, 'date1' también puede ser un vector de fechas. –