Input := p1 = ListPlot[data,PlotStyle->{PointSize[.02]}, AxesLabel->{"IO(t)", "(IO(t+10)-IO(t))/10"}]
Output = -Graphics-