如何使用R从单个新数据帧中的多个模型输出残差？

# 加载所需的包
library(dplyr)
library(purrr)
library(broom)

# 创建模型列表
model_list <- list(
  lm_model = lm(Sepal.Length ~ Sepal.Width, data = iris),
  glm_model = glm(Species ~ Sepal.Length + Sepal.Width, data = iris, family = "binomial")
)

# 创建函数来计算残差
calculate_residuals <- function(data, models) {
  residuals_list <- map(models, ~augment(.x, newdata = data) %>% select(.resid))
  bind_cols(residuals_list)
}

# 调用函数获取残差
new_data <- data.frame(Sepal.Width = c(3.5, 2.8))
residuals_df <- calculate_residuals(new_data, model_list)

# 打印结果
print(residuals_df)