Here is a bit simpler solution with `Reverse[data]`

    ListLinePlot[ Reverse[data],  
                  Ticks -> {{Range[20, 100, 10], Range[100, 20, -10]} // Transpose, Automatic}]

![enter image description here][1]


  [1]: https://i.sstatic.net/D2IL3.gif