SVM支持向量机对半月数据实现分类

一、产生半月数据

a <- creCircleScatter(R = 10, r = 4, n=1000)
adata <- data.frame(X=a$X,Y=a$Y,Z=1)
b <- creCircleScatter(R = 10, ox = 7,oy=3,  r = 4, n=1000,upper = FALSE )
bdata <- data.frame(X = b$X, Y = b$Y,Z = -1)
test_data <- rbind(adata, bdata)
test_data$Z <- as.factor(test_data$Z)
library(ggplot2)

ggplot(data =test_data,mapping = aes(x = X,y=Y,colour = Z))+geom_point()

 

二、训练SVM

#library(e1071)
svm_fit <- svm(Z ~ X + Y,data = test_data)
summary(svm_fit)
plot(svm_fit,data=test_data)