Added R script to generate plots of nonprofits