StreamPlot[{2*x*e^x, -y}, {x, -2, 2}, {y, -3, 3}]