You could use Show to "merge" plots
Show
Show[ Plot[3 x + 3, {x, 2, 4}], Plot[5 x + 2, {x, -2, 1}], PlotRange -> All, AxesOrigin -> {0, 0} ]