plot1.R initial commit