https://researchdatapod.com/how-to-solve-r-error-continuous-value-supplied-to-discrete-scale/