如何在R（e1071）中放大svm模型的彩色图

Question

我正在研究r中的库e1071用于svm分类器，我有一个问题，我找不到解决方案。我正在一些数据集上训练线性svm分类器。结果正如我所料，但是当我试图放大图时，它并没有充满代表一个类的颜色。以下图表代表问题。

由于它是一个线性分类器，因此应该计算出一个判别函数，并在此基础上对整个空间进行分类，以使图上没有空白区域。

以下是我取得成果的方法：

install.packages("readxl")
install.packages("e1071")
library("readxl")
library("e1071")
data <- read_excel("/path/to/your/file", col_names = FALSE)
X = cbind(data[1], data[2])
X = sapply(X, as.numeric)
y = sapply(data[length(data)], as.numeric)
y = as.factor(y)
train.data = data.frame(X, y)
model <- svm(y ~ ., data = train.data, kernel = "linear")
plot(model, train.data, X__2 ~ X__1, xlim = c(-0.5, 1.5), ylim = c(-0.5, 1.5), fill = TRUE)

我使用的数据来自：http://sci2s.ugr.es/keel/dataset.php?cod=183

在我的excel文件中，应该只有数据，没有列desctiption。

提前感谢您的帮助。