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: http://stackoverflow.com/questions/9749598/extract-month-and-year-from-a-zooyearmon-objecthttps://stackoverflow.com/questions/9749598/extract-month-and-year-from-a-zooyearmon-object