Create Plot_3.R