R code to make layout for cover