Create Plot_codes_R