rsort = Apply[Association] @* Through @*
{ReverseSortBy[{Key @ "22"}] @* KeyDrop["Total"], KeyTake["Total"]};
Dataset @ rsort @ data
Query[rsort] @ Dataset @ data
kglr
- 400.5k
- 18
- 488
- 929