How to arrange legend by percent and leave others at the end in ggplot

Question

I want to arrange legend by percentage and leave other to be at the end, I got this so far:

I tried to use reorder function but I wasn\'t successful.

T