title: Annotate first month with year in ggplot2
body: <p>Suppose I have a plot like this:</p>
  
  <pre><code>DF &lt;- data.frame(date=Sys.Date() - (-100):100, y=rnorm(201))
  library("ggplot2")
  library(scales)
  ggplot(DF, aes(x=date, y=y)) +
   geom_point() +
   scale_x_date(breaks = "1 month", minor_breaks = "1 week", labels=date_format("%b"))
  </code></pre>
  
  <p>Here I want to include major lines and labels at every month and minor lines at every week. This works well, but now I would like to include the year behind the abbreviated month, but only for the first month of that year in the plot. Thus, the labels should read sep 2014. okt, nov, dec, jan 2015, feb, mrt....</p>
  
  <p>Is this possible?</p>