Візуалізація меж рішення та поля допуску за допомогою `ggplot2`
У цій вправі ви додасте лінію розмежування (decision boundary) та межі поля допуску (margin) до діаграми розсіювання опорних векторів, створеної у попередній вправі. Модель SVM збережено у змінній svm_model, а вектор ваг попередньо обчислено для вас і збережено у змінній w. Бібліотеку ggplot2 також попередньо завантажено.
Ця вправа є частиною курсу
Support Vector Machines в 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