Visualizar los límites de decisión y de margen con `ggplot2`
En este ejercicio, vas a añadir la frontera de decisión y los límites del margen al diagrama de dispersión de vectores de soporte que creaste en el ejercicio anterior. El modelo SVM está disponible en la variable svm_model y el vector de pesos ya se ha precalculado para ti y está disponible en la variable w. La librería ggplot2 también se ha precargado.
Este ejercicio forma parte del curso
Máquinas de Vectores de Soporte en R
Instrucciones del ejercicio
- Calcula la pendiente y la ordenada al origen de la frontera de decisión.
- Añade la frontera de decisión a la gráfica.
- Añade los límites del margen a la gráfica.
Ejercicio interactivo práctico
Prueba este ejercicio y completa el código de muestra.
#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