È possibile aggiornare un pannello reticolare in R?

Question

Il metodo update dei grafici trellis consente di modificare un grafico lattice dopo la chiamata iniziale. Ma il comportamento update è più simile a sostituire di append. Questo differisce dall'idioma ggplot2 in cui ogni nuovo livello è additivo a ciò che già esiste. È possibile ottenere questo comportamento additivo usando lattice?

Un esempio:

LL <- barchart(yield ~ variety | site, data = barley, 
     groups = year, stack = TRUE, 
     between=list(y=0.5), 
     scales = list(x = list(rot = 90))) 
print(LL) 

Ora voglio aggiungere panel.text alla trama esistente. Utilizzando update nel modo seguente non funziona:

update(LL, panel=function(...){ 
      args <- list(...); panel.text(args$x, args$y+2, round(args$y, 0)) 
     }) 

So che posso usare update specificando tutti i livelli nella funzione del pannello:

update(LL, panel=function(...){ 
      args <- list(...) 
      panel.barchart(...) 
      panel.text(args$x, args$y+2, round(args$y, 0)) 
     }) 

Questa volontà lavoro, ma richiede che io conosca ciò che è già nella trama lattice - o che io rappresenti il ​​mio codice in modo abbastanza sostanziale.

Domanda: C'è un modo per aggiungere al pannello esistente in update.trellis?

Answer 1

Vedere layer dal pacchetto latticeExtra.

library(lattice) 
library(latticeExtra) 
LL <- barchart(yield ~ variety | site, data = barley, 
     groups = year, stack = TRUE, 
     between=list(y=0.5), 
     scales = list(x = list(rot = 90))) 
LL + layer(panel.text(x, y, round(y, 0), data=barley)) 

Answer 2

Ecco un modo per farlo senza latticeExtra. Certo, è più complicato e difficile della rotta latticeExtra. Tuttavia, la flessibilità con questo metodo trellis.focus potrebbe essere più utile in altri contesti.

barchart(yield ~ variety | site, data = barley, 
       groups = year, stack = TRUE, 
       between=list(y=0.5), 
       scales = list(x = list(rot = 90))) 

panels = trellis.currentLayout() 
for(i in seq_along(panels)) { 
    ind = which(panels == i, arr.ind=TRUE) 
    trellis.focus("panel",ind[2],ind[1]) 
    vars = trellis.panelArgs() 
    panel.text(vars$x,vars$y,round(vars$y,0)) 
}