library(latticeExtra)
dat <- list(1:10,
10:1,
3:7,
7:3)
plist <- lapply(seq(dat), function(i) {
tmp <- xyplot(dat[[i]] ~ seq(dat[[i]]),
type = "l", col = i)
})
p <- latticeCombineLayer(plist)
print(p)
Run the code above in your browser using DataLab