对比错误[重复]

Question

代码如下：

data_complete<-read.delim("D:/Work/output_java_head.txt") #complete data set #working
modelfn<-function(data_complete){
  model<-lm(mctr~price+age_group+gender+brand+product_typeid+google_product_category,data=data_complete)
  data_complete$predicted<-predict(model,data_complete) 
  return(data_complete$predicted)
  sink()
  write.csv("D:/Work/output",i,".csv")
  rm(model)
  gc(TRUE)
} #working

然后使用这个命令：

by(data_complete,data_complete$google_product_category,modelfn)

我收到了这个错误：

contrasts<-(*tmp*, value = contr.funs[1 + isOF[nn]]) 中的错误： 对比只能应用于具有 2 个或更多级别的因素

请注意data_complete$google_product_category 有 117 个级别，data_complete 共有 22 列。

我也用于测试：

by(data_complete,data_complete$google_product_category,summary)

它给了我正确的答案。

所以我猜我创建的函数modelfn有问题。

Answer 1

我不确定您在我写评论时是否相信我，但这是一个非常直接的错误，与您的一个变量只有一个观察到的水平有关。下面是一个简单的例子来演示它：

> x <- factor(rep(1,100), levels=1:20)
> y <- rnorm(100)
> lm(y~x)
Error in `contrasts<-`(`*tmp*`, value = contr.funs[1 + isOF[nn]]) : 
  contrasts can be applied only to factors with 2 or more levels

确保您的数据实际上与您认为的一样。即使一个变量附加了多个因子水平，该变量也可能在多个水平上缺乏实际观察。同样，如果您无法共享数据，我们也无法真正帮助您，因此您必须自己寻找发生这种情况的位置。