initial plot.R