When I try to use PlotMarkers function, I find there are always exist a little distance with its errorbar, like this: How can I fix these distance? (The position of the errorbars are correct, but the Markers are not at right position )
It is an aliasing problem. Try this:
Style[Show[s2, s3, s4, s5, PlotRange -> All], Antialiasing -> False]
Export["plot.pdf",%] works fine. Exporting your figure works OK.