Have you tried this:
df2$variable <- factor(df2$variable,
levels = c('vph.shr','vnu.shr'),ordered = TRUE)
I just picked an ordering there, since my system is configured slightly differently than yours I suspect, so my ‘default ordering’ may differ. But you can just switch the position of levels when specifying them.
A few other options, depend on your tastes:
For just reversing the current ordering:
factor(df2$variable,levels = rev(levels(df2$variable)),ordered = TRUE)
or you can use subsetting to specify a specific ordering if you don’t want to type out each level by hand:
factor(df2$variable,levels = levels(df2$variable)[1:2],ordered = TRUE)