这是我的部分代码，求求各位大佬帮忙看看哪里出问题了呀

data_train$satisfaction=as.factor(data_train$satisfaction)
fit_Bayes1=naive_bayes(satisfaction~.,data_train)
names(fit_Bayes1)
fit_Bayes1$apriori
fit_Bayes1$tables
plot(fit_Bayes1)
pre_Bayes1=predict(fit_Bayes1,data_test)
data_test$Bayes_pre_satisfaction=pre_Bayes1$class
head(data_test)
table(data_test$satisfaction,pre_Bayes1$class)
error_Bayes1=sum(pre_Bayes1$class!=data_test$satisfaction)/nrow(data_test);error_Bayes1


显示错误
> table(data_test$satisfaction,pre_Bayes1$class)
Error in pre_Bayes1$class : $ operator is invalid for atomic vectors
> error_Bayes1=sum(pre_Bayes1$class!=data_test$satisfaction)/nrow(data_test);error_Bayes1
Error in pre_Bayes1$class : $ operator is invalid for atomic vectors
> 这是为什么呀，该怎么修改啊呜呜