Create plots.r