How do I combine the graphic of a ListPlot with the graphic of a Plot?

问题

Is there a way to combine the graphic of a ListPlot to the graphic of a Plot? (I need to plot a graphic of a function on the graphic of a ListPlot)

回答1:

You can combine any graphics with the Show function like so:

Show[myListPlot, myPlot]

This generalizes to combining any number of plots at once: Show[p1, p2, p3, p4, ...] or Show[{p1,p2,p3,p4,...}]

---

Reference and image source: http://reference.wolfram.com/mathematica/ref/Show.html

---

You can use Epilog as well if Show is not stacking the graphics in the correct order, but combining more than 2 graphics with Epilog will be unwieldy.

回答2:

From your second line, I think Epilog is what you are looking for. Here's an example:

f[x_] := 1/Sqrt[2 Pi] Exp[-(x^2)/2];
ListPlot[
 Table[
  {x, PDF[NormalDistribution[], x]}, {x, -4, 4, 0.1}
  ],
 Epilog -> First@Plot[f[x], {x, -4, 4}, PlotStyle -> Red]
 ]

Another way to do the same would be to use Show

p1 = ListPlot[
   Table[
    {x, PDF[NormalDistribution[], x]}, {x, -4, 4, 0.1}
    ]
   ];
p2 = Plot[f[x], {x, -4, 4}, PlotStyle -> Red];
Show[p1,p2]

---

On the other hand, if I was mistaken and you just wanted to combine them in the sense one next to the other, then you can use GraphicsRow or GraphicsColumn.

FullGraphics@GraphicsRow[{p1, p2}]

来源：https://stackoverflow.com/questions/6180373/how-do-i-combine-the-graphic-of-a-listplot-with-the-graphic-of-a-plot