# Combining Histogram and SmoothHistogram

How can we draw Histogram and SmoothHistogram together for two data sets?. I'd like to show the first data set using Histogram, and the second using SmoothHistogram.

• Where is this "data set" you speak of? – J. M. is away Jun 5 '13 at 2:51

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:

• using "PDF" for the histogram to match the smooth histogram in height (otherwise the histogram will show counts, and completely dwarf the other plot).
• using Show with PlotRange -> All to combine the plots, and make sure each part is shown completely.