How To Make A Factor Into A Numerical In R