<div dir="ltr"><div class="gmail_default" style="font-family:trebuchet ms,sans-serif">Segue CMR.<br><br><span style="font-family:monospace,monospace">require(lattice)<br><br>df <- data.frame(id=c(1,1,2,2,1,1,3,3,4,4),<br>                 grp=c(1,1,1,1,2,2,2,2,2,2),<br>                 x=1:10,<br>                 y=1:10,<br>                 z=jitter(1:10))<br><br>df <- within(df, {<br>    id <- factor(id)<br>    grp <- factor(grp)<br>    x <- factor(x)<br>    y <- factor(y)<br>})<br><br>with(df, nlevels(id)*nlevels(grp)*nlevels(x))<br>with(df, nlevels(id)*nlevels(grp))<br>with(df, nlevels(x))<br><br>## Opção 1: colocar um layout que seja multiplo.<br>xyplot(z~y|id*grp*x, data=df, layout=c(8, 10),<br>       type="b", main="Test",<br>       ylab="y axis", xlab="x axis")<br><br>## Opção 2: criar novos fatores pela combinação dos envolvidos.<br>df <- transform(df, id.grp=interaction(id, grp),<br>                id.grp.x=interaction(id, grp, x, drop=FALSE))<br><br>xyplot(z~y|id.grp*x, data=df,<br>       type="b", main="Test",<br>       ylab="y axis", xlab="x axis")<br><br>xyplot(z~y|id.grp.x, data=df,<br>       type="b", main="Test",<br>       ylab="y axis", xlab="x axis")<br><br>## Visto que nem todas as combinações existem, o último gráfico é mais<br>## apropriado porque salva espaço.<br></span><br></div>​<div class="gmail_default" style="font-family:trebuchet ms,sans-serif;display:inline">​À disposição.<br>Walmes.​</div></div>