R script to generate data for the explore vis