redid plot 1 and 2 in R console