基本的な質問ですみません。

data = {{0, 0}, {1, 10}, {2, 20}, {3, 30}, {4, 100}, {5, 200}};

gr1 = ListPlot[data,
PlotStyle -> {RGBColor[1, 0, 0]}]

上のgr1のグラフと、

Do[Plot[a x ( x - 1), {x, 0, 10},
PlotStyle -> {RGBColor[0, 0, 1]}], {a, 1, 5, 1}]

このようなアニメーションのグラフを重ねて出すには
どうすれば良いのでしょうか？＾＾；
よろしくお願いします。