使用 `ggplot2` 可视化决策边界与间隔边界
在本练习中，您将把决策边界和间隔边界添加到上一练习创建的支持向量散点图中。SVM 模型已存放在变量 svm_model 中，权重向量已为您预先计算并存放在变量 w 中。ggplot2 库也已预加载。
本练习是课程的一部分
R 中的支持向量机
练习说明
- 计算决策边界的斜率和截距。
- 将决策边界添加到图中。
- 将间隔边界添加到图中。
交互式实操练习
通过完成这段示例代码来试试这个练习。
#calculate slope and intercept of decision boundary from weight vector and svm model
slope_1 <- -___/w[2]
intercept_1 <- ___$rho/w[2]
#build scatter plot of training dataset
scatter_plot <- ggplot(data = trainset, aes(x = x1, y = x2, color = y)) +
geom_point() + scale_color_manual(values = c("red", "blue"))
#add decision boundary
plot_decision <- scatter_plot + ___(slope = ___, intercept = ___)
#add margin boundaries
plot_margins <- plot_decision +
___(slope = ___, intercept = ___ - 1/w[2], linetype = "dashed")+
___(slope = ___, intercept = ___ + 1/w[2], linetype = "dashed")
#display plot
plot_margins