如何在Mathematica中连续排列多个地块？

Question

我的图看起来像这样：

Plot1 = Plot[Evaluate[{A[t]} /. Solve], {t, 0, xaxis}, 
  AspectRatio -> 1, PlotLegends -> {"A"}, PlotStyle -> {Green}]
Plot2 = Plot[Evaluate[{B[t]} /. Solve], {t, 0, xaxis}, 
  AspectRatio -> 1, PlotLegends -> {"B"}, PlotStyle -> {Blue}]
Plot3 = Plot[Evaluate[{C[t]} /. Solve], {t, 0, xaxis}, 
  AspectRatio -> 1, PlotLegends -> {"C"}, 
  PlotStyle -> {Orange}]
Plot4 = Plot[Evaluate[{D[t]} /. Solve], {t, 0, xaxis}, 
  AspectRatio -> 1, PlotLegends -> {"D"}, 
  PlotStyle -> {Red}]

请注意，图中有自由轴限制。.我想保持这种方式。我想将所有图布置成线性行，以便可以在屏幕上显示它。我按照其他答案中的建议尝试了Table，但似乎不起作用。有什么建议么？