如何从r的回归模型图中提取数据？

Question

这是我的代码：

library(tidyverse)
library(performance)

# defining a model
model <- lm(mpg ~ wt + am + gear + vs * cyl, data = mtcars)

check_model(model)

如何获得与残差图表的正态性相关的数据帧？

我需要复制此图表，我不知道如何提取数据。

任何帮助？

library(performance)
library(ggplot2)
m <- lm(mpg ~ wt + cyl + gear + disp, data = mtcars)
result <- check_normality(m)
p <- plot(result)
print(p)

Answer 1

g <- ggplot_build(p)
d <- g$data[[2]]
plot(d$x, d$y)