R-Code for the first logo

Should be able to just run it in R and it will work.