theTable$Position <- factor(theTable$Position, levels = c(...))
ggplot(df, aes(x = reorder(x_col_valus, -col_to_sort_by), y = value)) + geom_bar(stat = "identity")