[next] [prev] [prev-tail] [tail] [up]
one way
p = Plot[Sin[x], {x, 0, Pi}, MaxRecursion -> 0, PlotPoints -> 10]; data = Cases[Normal[p], x_Line :> First[x], Infinity]; Show[p, ListPlot[data, PlotStyle -> Red]]
[next] [prev] [prev-tail] [front] [up]