project1plot4.R

the code for the fourth plot