added plots and corresponding R scripts