Etichette per asse variabile formatter per facet in ggplot/R

Question

Ho un dataframe che acquisisce diverse misure nel tempo che vorrei visualizzare una sfaccettatura 3x1. Tuttavia, ogni misura contiene diverse unità/scale che trarrebbero beneficio da trasformazioni personalizzate e schemi di etichettatura.

Quindi, la mia domanda è: Se le unità e le scale sono diverse tra diversi aspetti, come posso specificare un formattatore personalizzato o una trasformazione (ad esempio, log10) su un particolare asse all'interno di un aspetto?

Per esempio, diciamo che ho i dati:

df = data.frame(dollars=10^rlnorm(50,0,1), counts=rpois(50, 100)) 
melted.df = melt(df, measure.var=c("dollars", "counts")) 

come si potrebbe andare su di creazione di una sfaccettatura 2x1 che mostra dollari e conta sopra l'indice con labels=dollars e scale_y_continuous(trans = "log10", ...) per i dati df$dollars?

Grazie!

Answer 1

Come hai scoperto, non c'è una soluzione facile a questo, ma si presenta molto. Dal momento che questo tipo di cose viene chiesto così spesso, trovo utile spiegare perché questo è difficile, e suggerire una possibile soluzione.

La mia esperienza è stata che la gente viene a ggplot2 o reticolo grafica fondamentalmente fraintendere lo scopo della sfaccettatura (o trellising, in reticolo). Questa funzione è stata sviluppata con un'idea ben precisa in mente: la visualizzazione dei dati su più gruppi che condividono una scala comune. Deriva da qualcosa chiamato il principio dei piccoli multipli, sposato da Tufte e altri.

Posizionare pannelli uno accanto all'altro con scale molto diverse è qualcosa che gli esperti di visual design tenderanno ad evitare, perché può essere nel migliore dei casi fuorviante. (Non ti sto rimproverando qui, solo spiegando il fondamento logico ...)

Ma ovviamente, una volta che hai aperto questo fantastico strumento, non sai mai come lo useranno. Quindi viene allungato: le richieste arrivano per la capacità di consentire alle scale di variare in base al pannello e di impostare vari aspetti della trama separatamente per ciascun pannello. E così la sfaccettatura in ggplot2 è stata ampliata ben oltre il suo intento originario.

Una conseguenza di ciò è che alcune cose sono difficili da implementare semplicemente a causa dell'intento di progettazione originale della funzionalità. Questo è probabilmente uno di questi casi.

Ok, una spiegazione sufficiente. Ecco la mia soluzione.

Il trucco qui consiste nel riconoscere che si tratta di grafici che condividono una scala. Per me, questo significa che non dovresti nemmeno pensare di usare la sfaccettatura. Invece, fare ogni appezzamento a parte, e disporle insieme in una trama:

library(gridExtra) 

p1 <- ggplot(subset(melted.df,variable == 'dollars'), 
       aes(x = value)) + 
      facet_wrap(~variable) + 
      geom_density() + 
      scale_x_log10(labels = dollar_format()) 

p2 <- ggplot(subset(melted.df,variable == 'counts'), 
       aes(x = value)) + 
      facet_wrap(~variable) + 
      geom_density() 

grid.arrange(p1,p2) 

Ho appena intuito quello geom_* si voleva utilizzare, e sono sicuro che questo non è davvero quello che volevi tracciare, ma almeno illustra il principio.