rsort = Apply[Association] @* Through @*
{ReverseSortBy[{Key @ "22"}] @* KeyDrop["Total"], KeyTake["Total"]};
Dataset @ rsort @ data
Query[rsort] @ Dataset @ data
data2 = data;
data2["France", "18"] = 102.0;
Dataset @ rsort @ data2
rsort = Apply[Association] @* Through @*
{ReverseSortBy[{Key @ "22"}] @* KeyDrop["Total"], KeyTake["Total"]};
Dataset @ rsort @ data
Query[rsort] @ Dataset @ data
rsort = Apply[Association] @* Through @*
{ReverseSortBy[{Key @ "22"}] @* KeyDrop["Total"], KeyTake["Total"]};
Dataset @ rsort @ data
Query[rsort] @ Dataset @ data
data2 = data;
data2["France", "18"] = 102.0;
Dataset @ rsort @ data2
rsort = Apply[Association] @* Through @*
{ReverseSortBy["22"]ReverseSortBy[{Key @ "22"}] @* KeyDrop["Total"], KeyTake["Total"]};
Dataset @ rsort @ data
Query[rsort] @ Dataset @ data
rsort = Apply[Association] @* Through @*
{ReverseSortBy["22"] @* KeyDrop["Total"], KeyTake["Total"]};
Dataset @ rsort @ data
Query[rsort] @ Dataset @ data
rsort = Apply[Association] @* Through @*
{ReverseSortBy[{Key @ "22"}] @* KeyDrop["Total"], KeyTake["Total"]};
Dataset @ rsort @ data
Query[rsort] @ Dataset @ data
rsort = Query[<|ReverseSortBy["22"]@KeyDrop["Total"]@#Apply[Association] @* Through @*
{ReverseSortBy["22"] @* KeyDrop["Total"], KeyTake["Total"]@#|>&];KeyTake["Total"]};
Dataset @ rsort @ data
rsortQuery[rsort] @ Dataset @ data
rsort = Query[<|ReverseSortBy["22"]@KeyDrop["Total"]@#, KeyTake["Total"]@#|>&];
Dataset @ rsort @ data
rsort @ Dataset @ data
rsort = Apply[Association] @* Through @*
{ReverseSortBy["22"] @* KeyDrop["Total"], KeyTake["Total"]};
Dataset @ rsort @ data
Query[rsort] @ Dataset @ data