fakedata = Transpose[{Range[500], RandomReal[4000, {500}]}];
ListLinePlot[fakedata,
Ticks -> {Automatic, {#, ScientificForm@#} & /@ Range[0., 4000., 1000.]},
PlotRange -> {0, 4500}]
kglr
- 400.5k
- 18
- 488
- 929