怎么把散点图和拟合函数图像画在一张图上？

user = {{1, 183347}, {2, 186232}, {3, 188795}, {4, 191366}, {5,
199014}, {6, 207750}, {7, 216538}, {8, 220618}, {9, 224697}, {10,
228201}, {11, 231561}}
user1 = ListPlot[user, PlotStyle -> PointSize[.015]]
user2 = Fit[user, Table[x^i, {i, 0, 3}], x]
user3 = Plot[user2, {x, 1, 11}, PlotStyle -> {RGBColor[0, 2, 1]}]
show[user1, user3]
按照这样输入，出来的是两张图，该怎样才能只画一张图？