R For Loop Multiple Plots