R中逻辑回归中的混淆矩阵

Question

我为逻辑回归模型创建的混淆矩阵只有 Predicted-FALSE 的值。即使我调整了阈值，它对矩阵也没有太大作用。出了什么问题，如何调整阈值？下面是训练集的代码和结果。 “保留”是我的因变量，1=保留0=不保留，所有自变量都是连续变量。我在数据集 (df) 中总共有 170K 记录。这个矩阵表明模型预测没有人保留，这很奇怪，因为实际上 45% 保留了。

model_1 <- glm(retain~ age_2010+cnt_total_funds+sum_MS_2010+tenure_2010, data=df, family="binomial")

res <- predict(model_1, training, retain="response")
(table(ActualValue=training$retain, PredictedValue=res>0.05))

PredictedValue
ActualValue FALSE
          0 96006
          1 43676

Answer 1

您在predict 函数中犯了一个错误，因为您想使用type 参数（不是retain，该函数不存在）。 我使用示例数据向您展示工作示例。 在您的示例中，将 retain="response" 更改为 type="response"。

aa <- airquality
aa$retain <- aa$Ozone > 50
gg = glm(retain ~ Solar.R + Month, data = aa, family = "binomial")
range(predict(gg, aa, type = "response"), na.rm = TRUE)
#> [1] 0.05918388 0.48769632

^{由reprex package (v2.0.0) 于 2021-06-18 创建}