sinplot = Plot[Sin[2x], {x, -1, 7}, PlotPoints 3000, PlotRange All,  ...  {"Time", "Q2"}, AxesStyle {Blue, Thickness[0.005]}]

[Graphics:HTMLFiles/graphOpt_2.gif]

Out[283]=

⁃Graphics⁃

Created by Mathematica  (September 30, 2006) Valid XHTML 1.1!