如何在ggplot2中进行多重逻辑回归？

install.packages("ggplot2")

library(ggplot2)

model <- glm(y ~ x1 + x2, data = dataset, family = binomial)

summary(model)

# 绘制拟合曲线
ggplot(data = dataset, aes(x = x1, y = y)) +
  geom_point() +
  geom_smooth(method = "glm", method.args = list(family = "binomial")) +
  labs(x = "x1", y = "y", title = "Multiple Logistic Regression")

# 绘制残差图
ggplot(data = dataset, aes(x = fitted(model), y = resid(model))) +
  geom_point() +
  geom_hline(yintercept = 0, linetype = "dashed") +
  labs(x = "Fitted Values", y = "Residuals", title = "Residual Plot")