As an alternative to the other suggestions, I've found it just as easy to make the bar plot using plot() . Assuming I've run hist()->sudh, then do plot(sudh$breaks[1:length(sudh$breaks)-1],sudh$counts,type='h',lwd={pick_a_width_you_like)) Then it's easy to drop some scatterplot points or lines on top of that.