Как объединить графику ListPlot с графикой участка?

Есть ли способ объединить графику ListPlot с графикой Plot? (Мне нужно построить графику функции на графике ListPlot)

Ответ 1

Вы можете комбинировать любую графику с функцией Show следующим образом:

Show[myListPlot, myPlot]

Это обобщает на объединение любого количества графиков сразу: Show[p1, p2, p3, p4, ...] или Show[{p1,p2,p3,p4,...}]

Ссылка и источник изображения: http://reference.wolfram.com/mathematica/ref/Show.html

Вы можете использовать Epilog, если Show не укладывает графики в правильном порядке, но объединение более двух графических изображений с Epilog будет громоздким.

Ответ 2

Из вашей второй строки, я думаю, Epilog - это то, что вы ищете. Вот пример:

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

Другой способ сделать то же самое - использовать 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]

С другой стороны, если я ошибался, и вы просто хотели объединить их в том смысле, что один рядом с другим, то вы можете использовать GraphicsRow или GraphicsColumn.

[email protected][{p1, p2}]