我做了一次逻辑回归:
EW <- glm(everwrk~age_p + r_maritl, data = NH11, family = "binomial")
此外,我希望能针对每个
r_maritl
的级别预测everwrk
。
r_maritl
包括以下级别:levels(NH11$r_maritl)
"0 Under 14 years"
"1 Married - spouse in household"
"2 Married - spouse not in household"
"3 Married - spouse in household unknown"
"4 Widowed"
"5 Divorced"
"6 Separated"
"7 Never married"
"8 Living with partner"
"9 Unknown marital status"
于是我就这么做了:
predEW <- with(NH11,
expand.grid(r_maritl = c( "0 Under 14 years", "1 Married -
spouse in household", "2 Married - spouse not in household", "3 Married -
spouse in household unknown", "4 Widowed", "5 Divorced", "6 Separated", "7
Never married", "8 Living with partner", "9 Unknown marital status"),
age_p = mean(age_p,na.rm = TRUE)))
cbind(predEW, predict(EW, type = "response",
se.fit = TRUE, interval = "confidence",
newdata = predEW))
问题是我得到了以下回复:
``` 在 model.frame.default(Terms, newdata, na.action = na.action, xlev = object$xlevels) 中出错:factor r_maritl has new levels 0 Under 14 years, Married - spouse in household unknown ```
样本数据:
str(NH11$age_p)
num [1:33014] 47 18 79 51 43 41 21 20 33 56 ...
str(NH11$everwrk)
Factor w/ 2 levels "2 No","1 Yes": NA NA 2 NA NA NA NA NA 2 2 ...
str(NH11$r_maritl)
Factor w/ 10 levels "0 Under 14 years",..: 6 8 5 7 2 2 8 8 8 2 ...
mtcars
,目前我无法重现你的问题。另外,你的数据集NH11
中是否存在未使用的因子? - coffeinjunky