How can we draw
SmoothHistogram together for two data sets?. I'd like to show the first data set using
Histogram, and the second using
Here's an example:
data1 = RandomVariate[NormalDistribution[0, 1], 100]; data2 = RandomVariate[NormalDistribution[1, 1], 100]; Show[ Histogram[data1, Automatic, "PDF"], SmoothHistogram[data2], PlotRange -> All ]
The important bits are:
"PDF"for the histogram to match the smooth histogram in height (otherwise the histogram will show counts, and completely dwarf the other plot).
PlotRange -> Allto combine the plots, and make sure each part is shown completely.