depth <- c(0,1,2,3,4,5) AOM <- c(5,8,10,1,4,1) S <-c(10,5,20,30,40,10) misdatos <-data.frame(depth, AOM, S) misdatos plt <- Stratiplot(depth ~AOM + S,data = chooseTaxa(datat), type =c("l"))