Changing Character strings to numeric in R

Question

I am trying to convert column variables from the characters "Strong", "Semi-Strong", "weak" and very weak" to numeric values (1-4) based o