title: MixEm producing too long tail
body: <p>I have run the following code that I have found on this post</p>
  
  <p><a href="https://stackoverflow.com/questions/25313578/any-suggestions-for-how-i-can-plot-mixem-type-data-using-ggplot2">Any suggestions for how I can plot mixEM type data using ggplot2</a></p>
  
  <pre><code>    wait2 &lt;- normalmixEM(df$minutes,k=11,ECM=TRUE,maxit=10000)
      gg.mixEM &lt;- function(EM) {
        require(ggplot2)
        x       &lt;- with(EM,seq(min(x),max(x),len=1000))
        pars    &lt;- with(EM,data.frame(comp=colnames(posterior), mu, sigma,lambda))
        em.df   &lt;- data.frame(x=rep(x,each=nrow(pars)),pars)
        em.df$y &lt;- with(em.df,lambda*dnorm(x,mean=mu,sd=sigma))
        ggplot(data.frame(x=EM$x),aes(x,y=..density..)) + 
        geom_histogram(fill=NA,color="black")+
        geom_polygon(data=em.df,aes(x,y,fill=comp),color="grey50", alpha=0.5)+
        scale_fill_discrete("Component\nMeans",labels=format(em.df$mu,digits=3))+
        theme_bw()
      }
  
  gg.mixEM(wait2)
  </code></pre>
  
  <p>The results of the normalmixEM are showing very long tails, see picture below.
  How can I adjust the code in order to show only the distribution where y is above a certain probability? I also would like to understand why normalmixEM would produce such long estimated tails?</p>
  
  <p><a href="https://i.stack.imgur.com/1kgaY.png" rel="nofollow noreferrer"><img src="https://i.stack.imgur.com/1kgaY.png" alt="enter image description here"></a></p>