NA 数据在 R 中未收敛的 Logistic 回归图

问：

我在尝试理解和测试缺失数据时遇到了问题。我的目标是使用逻辑回归来帮助推断缺失值是否为 MAR。对于此示例，我使用包中的数据集以及旧的 ggplot。OceanBuoysnaniarbind_shadow()

从逻辑回归中，我们可以推断出 确实有助于我们预测 中的缺失值，如下所示：sea_temp_cair_temp_c_NA

test <- oceanbuoys %>% bind_shadow()

model_log<- glm(air_temp_c_NA` ~ sea_temp_c, family="binomial", data = test )

summary(model_log)

因此，从这里开始，我想将模型可视化以加以理解。但是，我的尝试返回时显示“模型未收敛”警告。

我在这里错过了什么？我本来以为作为一个重要的预测因子会允许可视化的收敛吗？sea_temp_cair_temp_c_NA

ggplot(test, aes(y = air_temp_c_NA`, color = air_temp_c_NA`, x = sea_temp_c)) +
  geom_point()+
  geom_smooth(method="glm", method.args = list(family = "binomial"), se = FALSE)