plots and r script