How do you ordinal encode a variable in R based on another column?

Question

I have an ordinal variable called Product.Package.Level and would like to ordinal encode it and order them based on the sum of the number or average number of the variable Leads. How exactly do I go about doing this?

Data Frame

This can be easily be done in python with the feature engine package.