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

Question

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:

• flipping y axis

• Switching direction of y-axis

Answer 1

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"}}]

Answer 2

You can use the internal functions Charting`ScaledTicks and Charting`ScaledFrameTicks to draw ticks with or without labels:

Plot[
    x,
    {x, 1, 10},
    Frame -> True, 
    ScalingFunctions->"Reverse",
    FrameTicks -> {
        {Automatic, Automatic},
        {
            Charting`ScaledFrameTicks[{Identity,Identity}], 
            Charting`ScaledTicks[{Identity,Identity}]
        }
    }
]