Gitter, Verbindungspunkte nur, wenn die Verbindung eine positive Steigung hat

Question

Gibt es eine bequeme Möglichkeit, Punkte nur zu verbinden, wenn die Verbindung eine positive Steigung hat? (Sonst sollte die Funktion verhält sich genau wie xyplot (...))

library(lattice) 

dat <- data.frame(x=1:10,y=sample(1:10)) 

xyplot(y ~ x, data=dat, 
     panel = function(x, y,...) { 
     panel.xyplot(x, y, type="o",...) 
     } 
) 

so das Ergebnis shoud ein Grundstück so sein, aber ohne gekreuzte Linien:

Danke Christof

Answer 1

dat <- dat[order(dat[, "x"]),] 
dat$group <- cumsum(c(1, diff(dat$y) < 0)) 


xyplot(y ~ x, data = dat, groups = group, 
     panel = function(x, y,...) { 
     panel.xyplot(x, y, type = "o", col = trellis.par.get("plot.line")$col, ...) 
     } 
)