tmp <- data.frame(a=factor(1:3),
b=c(4,5,7),
c=factor(5:7),
d=c(8, 9, 12),
e=factor(9:11))
tmp
a6 <- xyplot(b ~ d | a*e, data=tmp)
a6
dim(a6)
a62 <- as.vector(a6)
a62
dim(a62)
Run the code above in your browser using DataCamp Workspace