r script and images that plots the data for project 1