added and ran plot2.R