Create plot4.R

project 1