added some more stuff to plots.R