的直方圖與在R-情節

Question

我使用下面的代碼來生成的直方圖與屬於正態分佈

h<-hist(df[,1], breaks=10, density=10, col="lightgray", xlab="Accuracy", main="Overall")  
xfit<-seq(min(df[,1]),max(df[,1]),length=40) 
yfit<-dnorm(xfit,mean=mean(df[,1]),sd=sd(df[,1])) 
yfit <- yfit*diff(h$mids[1:2])*length(df[,1]) 
lines(xfit, yfit, col="black", lwd=2) 

正態分佈的大小如何可以降低的曲線的大小，以使我將能夠看到情節中的整個正態分佈？

Answer 1

df <- data.frame(rnorm(1000), rnorm(1000)) 
h <- hist(df[,1], breaks=10, density=10, col="lightgray", xlab="Accuracy", main="Overall")  
xfit <- seq(min(df[,1]),max(df[,1]),length=40) 
yfit <- dnorm(xfit,mean=mean(df[,1]),sd=sd(df[,1])) 
yfit <- yfit*diff(h$mids[1:2])*length(df[,1]) 
par()$pin 
par(pin=c(2,2)) 
lines(xfit, yfit, col="black", lwd=2) 

從http://statmethods.net：

邊距和圖形大小

您可以使用以下參數控制邊距大小。

option description 
mar numerical vector indicating margin size c(bottom, left, top, right) in lines. default = c(5, 4, 4, 2) + 0.1 
mai numerical vector indicating margin size c(bottom, left, top, right) in inches 
pin plot dimensions (width, height) in inches