我一直收到"Error in plot.new()：figure margins large“

Question

我一直收到相同的错误，似乎无法修复它。它应该生成大约6个图表，但它们不会出现。请帮帮忙。我认为这与par()函数有关。

 variable <- c("Tot.Gross", "Gross.Log", "Age")  # pick up the numeric columns according to the names 
 par(mfrow = c(3, 2)) # layout in 3 rows and 3 columns
for (i in 1:length(variable)){
  sub <- unlist(salary[variable[i]])
  submean <- mean(sub)
  hist(sub, main = paste("Hist. of", variable[i], sep = " "), xlab = variable[i])
  abline(v = submean, col = "blue", lwd = 1)
  qqnorm(sub, main = paste("Q-Q Plot of", variable[i], sep = " "))
  qqline(sub)
  if(i == 1) {s.t <- shapiro.test(sub)
  } else {s.t <- rbind(s.t, shapiro.test(sub))
  }
}

Error in plot.new() : figure margins too large

Answer 1

减少margins的数字。例如：

par(mfrow=c(3, 2), mar=c(1, 1, 1, 1))

默认边距通常过大，尤其是对于多面板打印。下边距、左边距、上边距和右边距的默认值为c(5,4,4,2) + 0.1。