Flipping y-axis and keeping x-axis ticks and label on top

Consider the following plot:

Plot[x, {x, 1, 10}, Frame -> True]


How can the plot be inverted in the y axis such that the x axis ticks and label will remain on top, for example

There are two posts with similar questions, but they do not keep the x axis on top and seem to not use Mathematica's abilities to their full extent so I did not find them useful:

• Commented May 5, 2018 at 15:50

Plot[x, {x, 1, 10}, Frame -> True, Axes -> False,
ScalingFunctions -> "Reverse",
FrameTicks -> {{Automatic, Automatic}, {Automatic, All}},
FrameTicksStyle -> {{Automatic, Automatic},
{Directive[FontOpacity -> 0, FontSize -> 0], Automatic}},
FrameLabel -> {{"y", None}, {None, "x"}}]


or

Plot[x, {x, 1, 10}, Frame -> True, Axes -> False,
ScalingFunctions -> "Reverse",
FrameTicks -> {{Automatic, Automatic}, {Automatic, All}},
ImagePadding -> {{Automatic, Automatic}, {1, Automatic}},
FrameLabel -> {{"y", None}, {None, "x"}}]


• The frame label of the x axis appears below in the first suggestion, and don't appear at all in the second when adding FrameLabel->{"x","y"}. Can you address that in your answer? Commented May 5, 2018 at 16:04
• See the edited answer. Commented May 5, 2018 at 17:46

You can use the internal functions ChartingScaledTicks and ChartingScaledFrameTicks to draw ticks with or without labels:

Plot[
x,
{x, 1, 10},
Frame -> True,
ScalingFunctions->"Reverse",
FrameTicks -> {
{Automatic, Automatic},
{
ChartingScaledFrameTicks[{Identity,Identity}],
ChartingScaledTicks[{Identity,Identity}]
}
}
]