Create plot4.R

Reading and plotting graph 4