Добавьте qqline к нормальному qqplot для модели случайного леса с решеткой в ​​r

Question

Я хотел бы использовать пакет lattice R, чтобы добавить qq-строку к обычному qq-plot для модели случайного леса. Я знаю, что есть способы сделать это в ggplot и plotly, но на этот раз меня интересует lattice.

data("cars")

library(randomForest)
library(lattice)

rf_model <- randomForest(speed ~ dist, data = cars)
residuals <- predict(rf_model, cars) - cars$speed

qqmath( ~ residuals, main = "Normal Q-Q plot", 
                     xlab = "Theorethical quantiles",
                     ylab = "Residuals")