如何在Mathematica中使用表[plot]方法绘制函数并合并成一个图形？

在Mathematica中，这里尝试绘制c=-3到3乘以1的2-c Exp[-t]

Table[Plot[2 - c  Exp[-t], {t, 0, 1}], {c, -3, 3}]

我希望将这7个绘图合并为一个图像。下面给出一条错误消息

Show[{%, %%, %%%, %%%%, %%%%%, %%%%%%, %%%%%%%}]

---

如何做？另一种方法？

有许多方法可以做到这一点。作为最基本的情况，这将起作用：

Show[
 Table[Plot[2 - c Exp[-t], {t, 0, 1}], {c, -3, 3}],
 PlotRange -> All
 ]

但这里有一个更干净的：

Plot[Evaluate@Table[2 - c Exp[-t], {c, -3, 3}], {t, 0, 1}]