finished with plots.R