Я получаю ту же ошибку и не могу ее исправить. Предполагается, что будет построено около 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