Combine two or more graphics

p1 = Plot[x Sin[x] - 1, {x, -2.5, 2.5}]

-Graphics-

p2 = Plot[Evaluate[D[x Sin[x] - 1, x]], {x, -2.5, 2.5}, PlotStyle -> Red]

-Graphics-

p3 = Plot[Sin[x], {x, -2.5, 2.5}, PlotStyle -> Magenta]

-Graphics-

p4 = Graphics[{Magenta, Polygon[{{0.4, 0}, {0, 0.5}, {-0.4, 0}}]}]

-Graphics-

Show[p1, p2, p3, p4]

-Graphics-

Show[p1, p2, p3, p4, PlotRange -> All]

-Graphics-

GraphicsRow[{p1, p2, p3, p4}]

-Graphics-

GraphicsGrid[{{p1, p2}, {p3, p4}}]

-Graphics-

GraphicsColumn[{p1, p2, p3, p4}]

-Graphics-

Graphics[{StandardGray, Thick, Line[{{1, 1}, {2, 1}}]}, Epilog -> {Magenta, PointSize[0.2], Point[{{1.5, 1}}]}]

-Graphics-

Graphics[{StandardGray, Thick, Line[{{1, 1}, {2, 1}}]}, Prolog -> {Magenta, PointSize[0.2], Point[{{1.5, 1}}]}]

-Graphics-

sp = Graphics3D[Sphere[{0, 0, 0}, 0.8], Boxed -> False]

-Graphics3D-

pp3 = ParametricPlot3D[{(2 + Cos[v])Cos[u], (2 + Cos[v])Sin[u], Sin[v]}, {u, 0, 2Pi}, {v, 0, 2Pi}, Axes -> None, Boxed -> False]

-Graphics3D-

Show[sp, pp3]

-Graphics3D-

watermark = Style["Done", 36, Bold, Opacity[.6]]

Done

SphericalPlot3D[ϕ, {θ, 0, Pi}, {ϕ, 0, 3Pi}, Boxed -> False, Axes -> None, Epilog -> Inset[watermark, Automatic, Automatic, Automatic, {1, 1}]]

-Graphics3D-