Have you tried using an array of plots?

with(plots):A:=Array(1..2,1..2):

A[1,1]:=plot(x^2,x=-1..1):

A[1,2]:=plot(sin(x)/x,x=0.1..Pi):

A[2,1]:=plot(cos(x),x=-Pi..Pi):

A[2,2]:=plot(sin(x),x=-Pi..Pi):

display(A,axes=normal,scaling=constrained,size=[300, 300])