錯誤的反差

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) 

我得到這個錯誤：

Error in contrasts<- (*tmp* , value = contr.funs[1 + isOF[nn]]) : contrasts can be applied only to factors with 2 or more levels

請注意，在117個水平data_complete$google_product_category並且在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 

確保您的數據實際上看起來是您認爲他們做的方式。即使有多個因子水平附加到一個變量，也很可能是這個變量缺少多於一個水平的實際觀測值。再說一遍，如果你不能共享數據，我們不能真正幫助你，所以你必須尋找自己發生的地方。