rsort = Query[<|ReverseSortBy["22"]@KeyDrop["Total"]@#, KeyTake["Total"]@#|>&];
Dataset @ rsort @ data
rsort @ Dataset @ data
kglr
- 400.5k
- 18
- 488
- 929