在Ops.factor（pizza数量，pizzasize_table [size，] $ pizza_price）中： “ *”对因素没有意义
这是我收到的警告，不确定如何解决。 我已经创建了以下功能
gen_profit <-function（no_of_recs） + { +位置<-样本（location_table $ store_location，no_of_recs，replace = T，prob = c（2,2,1,1,4,1）） +大小<-样本（pizzasize_table $ pizza_type，no_of_recs，replace = T） +奶酪<-样本（cheese_table $ cheese_type，no_of_recs，replace = T） +面团<-样本（dough_table $ dough_type，no_of_recs，replace = T，prob = c（2,2,1）） + topping <-样本（toppings_table $ topping_type，no_of_recs，replace = T，prob = c（1,3,2,2）） + order_id <-sample（order_table $ order_type，no_of_recs，replace = T，prob = c（2,3）） +比萨饼数<-样本（c（1,2），no_of_recs，replace = T，prob = c（10,4）） +金额<-比萨饼数*比萨饼大小表[大小，] $比萨饼价格 +利润<-data.frame（pizza_size =大小，奶酪=奶酪，dough_type =面团，浇头=浇头，order_type = order_id，数量= Pizza的数量，数量=数量） + row.names（profit）<-NULL +回报（利润） +} Profit_fact <-gen_profit（100）