r - R绘制线性SVM内核不绘制一条线

Question

我e1071在 R 中使用包来拟合线性内核 SVM，然后绘制分离超平面。我申请的代码取自这里。

svmfit <- svm(y~., data = dat, kernel = "linear", scale = FALSE)
# Plot Results
plot(svmfit, dat)

情节如下，我不知道为什么分离不是简单的线性（而是一些锯齿形）。有什么想法吗？