找不到对象“Month”

airquality$Month <- factor(airquality$Month)

> xyplot(Temp~Ozone|Month,date=airquality,

+        layout=c(5,1))

Error in eval(modelRHS.vars[[i]], data, env) : 找不到对象'Month'