如何绘制逻辑回归的决策边界——RStudio

我使用人力资源分析数据（预测离开公司的概率）在R中实施逻辑回归：如果为真，则“离开”=1，否则为0，基于两个特征

对于我的最终模型，我有权重和训练数据。有2个特征，所以我的权重是2行向量

如何绘制决策边界？我确实搜索了网络，但到目前为止找不到解决方案

### Load data
HR = read.csv(file = "HR_comma_sep.csv",header = TRUE, na.strings=c(""))
HR.2 <- HR[c("satisfaction_level","time_spend_company","left")]
###  Split the data "HR.2" into training and testing data
data <- HR.2 [1:12000,]
test.data <- HR.2 [12001:14999,]
### Fit a logistic regression model using training data
model <- glm (left ~ satisfaction_level + time_spend_company, 
         family = binomial(link = 'logit'), data = data)
summary(model) 

加载数据 HR=read.csv（file=“HR\u comma\u sep.csv”，header=TRUE，na.strings=c（“”）

---

HR.2这个答案可能很有用，非常感谢@user20650，它实际起了作用：）对于第一个提议的解决方案，我会坚持第一个解决方案，谢谢@user20650。现在我挣扎着写下一个传奇。。。目前它只显示“0”和“1”，因为我的数据是二项式的，我想用文本“Left”和“Remained”来显示符号。以下代码不起作用：图例（x=0.8，y=10，c（“左”，“留”）图例=级别（按系数（HR.2$Left）），列=按系数（HR.2$Left）），pch=20，bty=“o”，pt.cex=2，cex=1.2，text.col=seq_（级别（系数（HR.2$Left）），horiz=F）知道如何修复吗？如果您使用的是第一个链接中的答案，那么它将使用ggplot/grid图形，因此函数

legend

将不起作用。尝试将标签添加到代码的

scale\u

行，即

scale\u color\u手册（值=c（'red'，'dek green'），标签=c（'left'，'right'））

，并删除

主题（legend.position=“none”）

行