made for a class to practice data visualization in R