Plot[{x, (2 - Exp[x] + x^2)/3}, {x, -1, 2}]