вот один из способов, как построить график остатков (эпсилон) и подобранных значений (yhat) линейной регрессии.Поскольку вы не предоставили свои данные, я создал свои собственные:
set.seed(1)
x <- rexp(100, 1)
y <- 1 + 2*x + rnorm(100)
lm_obj <- lm(y~x)
plotdata <- data.frame(type = rep(c("res", "yhat"), each = 100),
value = c(residuals(lm_obj), fitted(lm_obj)))
boxplot(value~type, data = plotdata, col = c("dodgerblue", "hotpink2"), pch = 16,
names = c("Residuals", "Fitted Values"), main = "My Boxplot")