Figure generation in R

Week 6 Lab