Create event_pie.r

An R program which takes the data generated by the scrape.py and turns it into a PDF