plot2.R creates proper plot