title: Legend box width not correct when using par
body: <p>I have the problem , that my legend is too large, my code:</p>
  
  <pre><code>par(mfrow=c(1,2))
  hist(alvsloss,breaks = 100, freq=F,main="Histogramm,
   density curve (gaussian kernel) \n and fitted normal distribution of Allianz simple losses ",xlim=c(-0.15,0.15),xlab="loss",ylab="density",cex.axis=1.2,cex.lab=1.2)
  lines(density(alvsloss), col="black", lwd=2)
  curve(dnorm(x, mean = mean(alvsloss), sd = sd(alvsloss)), add=TRUE, col="black",lwd=2,lty="dotted")
  
  legend(-0.155, 30, c("(Gaussian) Kernel density","fitted normal distribution"),lwd=2, cex=0.8, 
     col=c("black","black"), lty=1:2)
  
  
  qqnorm(alvsloss,main="normal QQ Plot",cex.axis=1.2,cex.lab=1.2)
  qqline(alvsloss)
  </code></pre>
  
  <p>This gives the following picture:</p>
  
  <p><img src="https://i.stack.imgur.com/nU0jF.png" alt="Graphs"></p>
  
  <p>The problem is, that the legend on the left is too big, how can I control the width of the box? The box is way too large.</p>
  
  <p>data can be found here: <a href="http://uploadeasy.net/upload/ocafq.rar" rel="nofollow noreferrer">http://uploadeasy.net/upload/ocafq.rar</a></p>