Create plot4.R

create a new file Plot4.R