Animate[Show[StreamPlot[{-2 x + y, a y}, {x, -3, 3}, {y, -3, 3}, PlotLabel -> {a}], Plot[{x /100, (a + 2) x}, {x, -3, 3}]], {a, -6, 6}]