`library(lattice)
d=data.frame(seq <- c(1,2,3,4,5,6,7,8,9,10),
             n1 <- c(23 ,27 ,26, 24 ,27 ,28 ,28 ,29 ,30 ,31),
             n2 <- c(31 ,30 ,25, 23 ,22 ,26 ,24 ,29 ,25 ,27),
             c1 <- c(44 ,0 ,0, 44 ,44 ,0 ,0 ,0 ,44 ,0),
             c2 <- c(48 ,0 ,0, 48 ,48 ,0 ,0 ,0 ,48 ,0),
             c3 <- c(50 ,0 ,0, 50 ,50 ,0 ,0 ,0 ,50 ,0))
names(d)<- c("Seq","n1","n2","c1","c2","c3")


xyplot(c1 + c2 + c3 + n1 + n2 ~ Seq ,data=d,points=FALSE,type="l",size=50,
       main="To Combine Point + Line Plot ?",xlab="Sequence",ylab="Y-axis") `