children[ent : Entity["Person", _]] := Replace[ent[EntityProperty["Person", "Children"]], _Missing -> {}]; children[_] = {}; NestTree[children, Entity["Person", "QueenElizabethII::f5243"], 2, ImageSize -> 1000]

NestTree[Reverse@*children, Entity["Person", "QueenElizabethII::f5243"], 2, ImageSize -> 1000, TreeLayout -> Bottom]

EDIT: For the example given in the comment below
bottomsUp[ tree_Tree] := (tree //. Tree[lbl_, br_List] :> temp[lbl, Reverse@br]) //. temp :> (Tree[##, TreeLayout -> Bottom] &)
EDIT 2: or a little cleaner
bottomsUp[tree_Tree] := (tree //. Tree[lbl_, br_List] :> temp[lbl, Reverse@br, TreeLayout -> Bottom]) //. temp :> Tree origtree = Tree[Subscript[μ, {1, 2, 3, 4}, {5, 6}], {Tree[Subscript[μ, {1, 2}, {3, 4}], {Tree[Subscript[ι, {1}]^{1, 2}, {Subscript[ι, {}]^{1}}], Subscript[ι, {3}]^{3, 4}}], Tree[Subscript[μ, {5}, {6}], {Subscript[ι, {}]^{6}, id}]}]

bottomsUp[origtree]

Tree[f, Reverse@{1, 2, 3}, TreeLayout -> Bottom]$\endgroup$