这幅图使用的程序代码如下，希望能得到各位的解决。感谢。
library(foreign)
wage1<-read.dta("D://R//Wooldridge_5th_stata_data//WAGE1.DTA",convert.factors=F)
attach(wage1)
library(mice)
md.pattern(wage1)
fit1<-lm(wage~educ+exper+tenure)
residplot<-function(fit,nbreaks=10){
  z<-rstudent(fit)
  hist(z,breaks = nbreaks,freq = FALSE,xlab = "studentized residual",main = "distribution of errors")
  rug(jitter(z),col="brown")
  curve(dnorm(x,mean=mean(z),sd=sd(z)),
        add = TRUE,col="blue",lwd=2)
  lines(density(z)$x,density(z)$y,col="red",lwd=2,lty=2)
  legend("topright",legend=c("normal cure","kernel density curve"),
         lty=1:2,col=c("blue","red"),cex=0.7)
}

residplot(fit1)

这种情况好像是拖一下对话框它自己就会调整？哈哈哈或者你换个大屏试试

拖对话框不行，我的电脑屏幕本省就很大，所以到现在来说还没找到原因

先开一个绘图窗口：
windows()

用windows（）做出来的图，还是不行，仍然跟之前一样，超出边界。