Transformiere nur eine Achse auf log10 mit ggplot2

Question

Ich habe folgendes Problem: Ich möchte eine diskrete und eine kontinuierliche Variable auf einem Boxplot visualisieren, in dem letzterer einige extrem hohe Werte hat. Das macht den Boxplot bedeutungslos (die Punkte und sogar der "Körper" des Charts sind zu klein), deshalb möchte ich das auf einer Log10-Skala zeigen. Mir ist bewusst, dass ich die extremen Werte aus der Visualisierung weglassen könnte, aber das ist nicht beabsichtigt.

Nehmen wir ein einfaches Beispiel mit Diamanten Daten sehen:

m <- ggplot(diamonds, aes(y = price, x = color)) 

Das Problem hier ist nicht ernst, aber ich hoffe, dass man sich vorstellen kann, warum ich möchte die Werte bei einer log10 Skala sehen . Versuchen wir es:

m + geom_boxplot() + coord_trans(y = "log10") 

Wie Sie die y-Achse ist log10 skaliert sehen und sieht gut aus, aber es gibt ein Problem mit der x-Achse, die die Handlung sehr merkwürdig macht.

Das Problem tritt nicht mit scale_log auf, aber das ist keine Option für mich, da ich einen benutzerdefinierten Formatierer auf diese Weise nicht verwenden kann. Z.B .:

m + geom_boxplot() + scale_y_log10() 

Meine Frage: jemand eine Lösung kennt die boxplot mit log10 Skala auf der y-Achse plotten, die Etiketten frei mit einer formatter Funktion wie in diesem thread formatiert werden könnte?

---

die Frage bearbeiten Beantworter auf Antworten und Kommentare basierend zu helfen:

Was ich wirklich nach: ein log10 transformierte Achse (y) mit nicht wissenschaftlichen Etiketten. Ich möchte es wie Dollar (formatter=dollar) oder irgendein kundenspezifisches Format beschriften.

Wenn ich @ hadley Vorschlag versuchen, erhalte ich die folgenden Warnungen:

> m + geom_boxplot() + scale_y_log10(formatter=dollar) 
Warning messages: 
1: In max(x) : no non-missing arguments to max; returning -Inf 
2: In max(x) : no non-missing arguments to max; returning -Inf 
3: In max(x) : no non-missing arguments to max; returning -Inf 

bei unveränderter y-Achse Etiketten:

Answer 1

Die einfachste ist, einfach den Namen der Formatierer Argument geben der Protokollfunktion:

m + geom_boxplot() + scale_y_continuous(formatter='log10') 

ED IT: Oder wenn Sie mögen, dass dann nicht eine dieser erscheint das gleiche Ergebnis zu erhalten:

m <- ggplot(diamonds, aes(y = price, x = color), log="y"); m + geom_boxplot() 
m <- ggplot(diamonds, aes(y = price, x = color), log10="y"); m + geom_boxplot() 

EDIT2 & 3: Weitere Experimente (nach dem ein Verwerfen, die erfolgreich versucht, „$“ Zeichen zu setzen vor protokollierten Werte):

fmtExpLg10 <- function(x) paste(round_any(10^x/1000, 0.01) , "K $", sep="") 
ggplot(diamonds, aes(color, log10(price))) + 
geom_boxplot() + 
scale_y_continuous("Price, log10-scaling", formatter = fmtExpLg10) 

Anmerkung hinzugefügt Mitte 2017 Kommentare über Paket-Syntax ändern:

scale_y_continuous (Formatierer = 'log10') ist jetzt scale_y_continuous (trans = 'log10') (ggplot2 v2.2.1)

Answer 2

Ich glaube, ich habe es schließlich durch einige manuelle Transformationen mit den Daten zu tun vor Visualisierung:

d <- diamonds 
# computing logarithm of prices 
d$price <- log10(d$price) 

Und eine Formatierer später Compute erarbeiten 'zurück' der logarithmischen Daten:

formatBack <- function(x) 10^x 
# or with special formatter (here: "dollar") 
formatBack <- function(x) paste(round(10^x, 2), "$", sep=' ') 

Und die Handlung mit bestimmten Formatierer ziehen:

m <- ggplot(d, aes(y = price, x = color)) 
m + geom_boxplot() + scale_y_continuous(formatter='formatBack') 

Sorry an die Community, die Sie mit einer Frage zu stören ich vorher gelöst haben könnte! Der lustige Teil ist: Ich habe hart gearbeitet, um dieses Komplott vor einem Monat arbeiten zu lassen, aber es ist mir nicht gelungen. Nachdem ich hier gefragt habe, habe ich es verstanden.

Wie auch immer, dank @DWin für die Motivation!

Answer 3

Ich hatte ein ähnliches Problem und diese Skala für mich wie ein Charme:

breaks = 10**(1:10) 
scale_y_log10(breaks = breaks, labels = comma(breaks)) 

, wie Sie die Zwischenebene wollen, auch (10^3.5), müssen Sie die Formatierung zwicken:

breaks = 10**(1:10 * 0.5) 
m <- ggplot(diamonds, aes(y = price, x = color)) + geom_boxplot() 
m + scale_y_log10(breaks = breaks, labels = comma(breaks, digits = 1)) 

Nach der Ausführung ::