r scipts to generate plots

scripts