Plot[-1/r^6,{r,0,3},Axes->False,PlotRange->{{0,3},{-10,1}}, PlotStyle->Thick]

Plot[{.8Sin[x/2],.8Sin[x]+2,.8Sin[3x/2]+4,.8Sin[2x]+6},{x,0,2 Pi},PlotStyle->Thickness[.02],Axes->False]

ListPlot[Table[RandomReal[],{x,0,80}],Axes->False,Joined->True,PlotStyle->{Thick,Blue}]