一个红外光谱图。希望让x轴时从4000到300

data1 = RandomReal[{300, 4000}, 50];
data2 = RandomReal[{0, 100}, 50];
data = Transpose[{data1, data2}] // Sort;
ListLinePlot[data, ScalingFunctions -> {"Reverse", None},
PlotRange -> {{300, 4000}, {0, 100}}, AxesOrigin -> {4000, 0},
PlotStyle -> {Black, Thick}]