Script Plot3.R and Plot3.png