R code for the statsstats second logo