Combining two SmoothHistogram plots without normalization of each

Question

I'm trying to plot a density of states out of a list of energy values, and on it I want to include another over-layed plot with it that shows some fraction of that density of states at different values, that I have as another list. I've been doing this with the SmoothHistogram function, which gives the correct shape of the plot, but the normalization of each plot screw up what I'm trying to accomplish. Is there any way to make a SmoothHistogram-like plot without normalizing the integration of my data? I've attempted plotting a single gaussian for each point in my list, but it takes a long time to plot it like that. Each list can be thousands of elements long.

list1 = RandomReal[100, 1000];
list2 = plot1*RandomReal[1,1000];
SmoothHistogram[list1]
SmoothHistogram[list2]
SmoothHistogram[{list1,list2}]

I want the plot of list2 to be some fraction of list1, and SmoothHistogram normalizes each plot before over-laying them.

Answer 1

Im not sure exactly what you are after, but here is a trick to rescale the SmoothHistogram result

 list1 = RandomVariate[NormalDistribution[0, 1], 500];
 Show[ {
          Histogram[list1] ,
          SmoothHistogram[list1] /. 
            Line[x_] :> Line[ {#[[1]], #[[2]] 250} & /@ x] }]

another approach is:

 d = PDF[SmoothKernelDistribution[list1]];
 Show[
   Histogram[list1],
   Plot[ 100 d[x]/d[0] , {x, -5, 5}]  ]

essentially the same plot