使用晶格时，图形不会出现在第一个面板上

Question

当我在Reproducible Research，Week2，Coursera中完成课程项目1时，问题就出现了。

Here is the github link.

在这个项目中，问题出现在下面。

newact_ind <- cbind(newactivity, a)
colnames(newact_ind)[ncol(newact_ind)] <- "Indicator"

new_meanstep <- tapply(newact_ind$steps, newact_ind$interval, mean)

interval <- as.integer(levels(newact_ind$interval))

library(lattice)
xyplot(new_meanstep ~ interval | Indicator, data=newact_ind, layout=c(1,2), 
       type="l", xlab="Interval", ylab="Number of steps")

此图应显示按指标划分的时间序列图（工作日和周末），但结果如下所示。

为什么会这样？