How to keep labels of a factor variable after transforming it to numeric in R?

Question

I have the following data with three main variables:

i) education (factor): represents three different level of education(1, 2, 3)

ii) share (numeric): repres