Create plot4.R

#Made with RStudio