R语言广义线性模型作图代码

以下是使用R语言绘制广义线性模型（Logistic回归模型）的列线图的代码：

# 加载所需的包
library(ggplot2)

# 创建一个示例数据集
data <- data.frame(
  x = c(1, 2, 3, 4, 5),
  y = c(0, 0, 1, 1, 1)
)

# 拟合Logistic回归模型
model <- glm(y ~ x, data = data, family = binomial(link = "logit"))

# 提取模型预测值
predicted <- predict(model, type = "response")

# 将数据集与模型预测值合并
data$predicted <- predicted

# 绘制列线图
ggplot(data, aes(x, predicted)) +
  geom_col() +
  labs(x = "x", y = "Predicted probability")