R scripts for my plots