Comportamiento extraño del espectáculo

Question

Al intentar superponer un gráfico discreto en un histograma, sin importar el orden en el que pase cada argumento en Mostrar, el histograma se apila sobre el gráfico discreto. ¿Es posible colocar DiscretePlot sobre el histograma?

Answer 1

Si desea mostrar un histograma y compararlo con un PDF, debe especificar la propiedad "Probabilidad" (para distribuciones discretas) o "PDF" (para distribuciones continuas) para colocar los dos uno encima del otro. De lo contrario, los ejes no estarán de acuerdo y una trama se hundirá en la otra:

data = RandomVariate[GeometricDistribution[1/2], 100];
Show[
 Histogram[data, Automatic, "Probability"],
 DiscretePlot[PDF[GeometricDistribution[1/2], x], {x, 0, Max[data]}],
 PlotRange -> All
]

Para datos continuos:

data = RandomVariate[ExponentialDistribution[1/2], 100];
Show[
 Histogram[data, Automatic, "PDF"],
 Plot[PDF[ExponentialDistribution[1/2], x], {x, 0, Max[data]}],
 PlotRange -> All
]

Answer 2

En Mostrar, las opciones de Trazado que se proporcionen más adelante anularán las que se dieron anteriormente. Por lo tanto, asegúrese de que sus ejes encajen o no los dibuje. Existe otra posibilidad. La superposición simplemente dibujará una imagen sobre otra.

Aquí hay un ejemplo:

d1 = RandomReal[{0, 1}, 100];
g1 = Histogram[d1]
g2 = Plot[30 Sin[2 Pi x], {x, 0, 1}]
Show[{g1, g2}]
Overlay[{g1, g2}]