R在运行SVM时抛出错误

Question

我在R中运行SVM 当我运行此代码加载此数据集。我收到此错误：  数据集位于here

https://www.dropbox.com/s/hyrk3o72kmmpsq5/ds.csv?dl=0

install.packages("e1071")
install.packages("RTextTools")
library(e1071)
library(RTextTools)

store_9<-read.csv("_1_9_after_join.csv")
attach(store_9)
x <- subset(store_9, select=-volume_sales)
y <- volume_sales
svm_model <- svm(volume_sales ~ ., data=store_9)
summary(svm_model)
svm_model1 <- svm(x,y)
summary(svm_model1)
pred <- predict(svm_model1,x)
system.time(pred <- predict(svm_model1,x))
table(pred,y)

error:
> svm_model <- svm(volume_sales ~ ., data=store_9)
Error in `contrasts<-`(`*tmp*`, value = contr.funs[1 + isOF[nn]]) : 
contrasts can be applied only to factors with 2 or more levels

Answer 1

您的数据中有一个独立变量是分类的，但只有一个类别（换句话说，在R-speak中，它只是一个级别的因子变量）。根据您的数据的快速扫描，看起来depart和snowfall都可能是个问题。您还有几个数值变量似乎总是具有相同的值，并且不应该在模型中（尽管它们不是错误的原因）。