reticolo, collegare i punti solo se la connessione ha una pendenza positiva

Question

c'è un modo comodo per collegare i punti solo se la connessione ha una pendenza positiva? (Altrimenti la funzione dovrebbe comportarsi esattamente come 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",...) 
     } 
) 

modo che il risultato shoud essere una trama del genere, ma senza linee incrociate:

Grazie 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, ...) 
     } 
)