Plot[{x^3+x^2-x+1,4*x-2},{x,-2,2},PlotPoints->50,PlotStyle->{Thickness[0.01],RGBColor[1,0,0]}]