Visualizando a fronteira de decisão e as margens com `ggplot2`
Neste exercício, você vai adicionar a fronteira de decisão e as margens ao gráfico de dispersão dos vetores de suporte criado no exercício anterior. O modelo SVM está disponível na variável svm_model, e o vetor de pesos já foi calculado para você e está disponível na variável w. A biblioteca ggplot2 também já foi carregada.
Este exercicio faz parte do curso
Support Vector Machines em R
Instruções do exercicio
- Calcule a inclinação e a interceptação da fronteira de decisão.
- Adicione a fronteira de decisão ao gráfico.
- Adicione as margens ao gráfico.
exercicio interativo prático
Tente este exercicio completando este código de exemplo.
#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