Code for the blog - R visualisations mainly