Utiliza la función format() sobre el objeto "yearmon" ejemplo:

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

Luego puedes extraer las partes de la fecha requeridas:

    > format(date1, "%b") ## Mes, char, abreviado
    [1] "Mar"
    > format(date1, "%Y") ## Año
    [1] "2012"
    > format(date1, "%m") ## Mes numérico
    [1] "03"

Fuente: https://stackoverflow.com/questions/9749598/extract-month-and-year-from-a-zooyearmon-object