added initial ggplot2 scraper code