Extraire le mois et l'année d'un objet zoo::yearmon

Question

J'ai un yearmon objet :

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

Comment puis-je en extraire le mois et l'année ?

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

Quelle fonction dois-je utiliser à la place de fn()

Answer 1

Utilisez le format() pour les objets de la classe "yearmon" . Voici votre exemple de date (correctement créée !)

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

Ensuite, nous pouvons extraire les parties de la date selon les besoins :

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

Ils sont renvoyés sous forme de caractères. Le cas échéant, les caractères sont enveloppés dans as.numeric() si vous voulez l'année ou le mois numérique comme une variable numérique, par ex.

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

Ver ?yearmon y ?strftime pour plus de détails - ce dernier explique les caractères de remplacement que vous pouvez utiliser.

Answer 2

El paquet de lubrifiants est incroyable pour ce genre de choses :

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

Answer 3

Je sais que l'OP utilise zoo ici, mais j'ai trouvé ce fil de discussion en cherchant sur Google une norme ts pour le même problème. J'ai donc pensé ajouter un zoo -réponse gratuite pour ts également.

# 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 4

Vous pouvez utiliser format :

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

Answer 5

J'ai fait cela, car si on utilise zoo, on a des problèmes avec ggplot, etc.

• GT[,1]<- as.Date(GT[,1])
• 'GT$date<-paste(year(GT[,1]),month(GT[,1]), "01",sep="-")''
• "GT$date<-as.Date(GT$date)