Lokale Variablen Innerhalb aes

Question

Ich versuche, eine lokale Variable in aes zu verwenden, wenn ich mit ggplot plotten. Das ist mein Problem zum Wesen eingekocht:

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

plotfunc <- function(Data,YMul=2){ 
    ggplot(Data,aes(x=x,y=y*YMul))+geom_line() 
} 

plotfunc(xy) 

Diese in den folgenden Fehlern führt:

Error in eval(expr, envir, enclos) : object 'YMul' not found 

Es scheint, als ob ich nicht auf lokale Variablen (oder Funktionsargumente) in aes verwenden kann. Könnte es sein, dass es aufgrund des Inhalts von aes später ausgeführt wird, wenn die lokale Variable außerhalb des Geltungsbereichs ist? Wie kann ich dieses Problem vermeiden (abgesehen davon, dass die lokale Variable aes nicht verwendet wird)?

Answer 1

I würde die lokale Umgebung erfassen,

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

plotfunc <- function(Data, YMul = 2){ 
    .e <- environment() 
    ggplot(Data, aes(x = x, y = y*YMul), environment = .e) + geom_line() 
} 

plotfunc(xy) 

Answer 2

ggplot() ‚s aes erwartet YMul eine Variable innerhalb des data Datenrahmen zu sein. Versuchen einschließlich YMull dort statt:

Dank @Justin: ggplot() ‚s aes für YMul im data Datenrahmen zuerst zu schauen scheint, und wenn nicht gefunden, dann in der globalen Umwelt. Ich möchte solche Variablen dem Datenrahmen wie folgt hinzufügen, da es für mich konzeptionell Sinn macht. Ich muss mir auch keine Gedanken über Änderungen an globalen Variablen machen, die unerwartete Konsequenzen für Funktionen haben. Aber alle anderen Antworten sind auch richtig. Also, verwenden Sie, was Ihnen passt.

require("ggplot2") 
xy <- data.frame(x = 1:10, y = 1:10) 
xy <- cbind(xy, YMul = 2) 

ggplot(xy, aes(x = x, y = y * YMul)) + geom_line() 

Oder, wenn Sie die Funktion in Ihrem Beispiel wollen:

plotfunc <- function(Data, YMul = 2) 
{ 
    ggplot(cbind(Data, YMul), aes(x = x, y = y * YMul)) + geom_line() 
} 

plotfunc(xy) 

Answer 3

Wenn Sie Ihren Code außerhalb der Funktion ausführen es funktioniert. Und wenn Sie den Code innerhalb der Funktion mit YMul global definiert ausführen, funktioniert es. Ich verstehe nicht ganz, das Innenleben von ggplot aber das funktioniert ...

YMul <- 2 

plotfunc <- function(Data){ 
    ggplot(Data,aes(x=x,y=y*YMul))+geom_line() 
} 

plotfunc(xy) 

Answer 4

Hier ist eine Alternative, die Sie in einem beliebigen Wert durch das YMul Argument übergeben können, ohne es an die Data data.frame hinzufügen zu müssen oder für die globale Umwelt:

plotfunc <- function(Data, YMul = 2){ 
    eval(substitute(
     expr = { 
      ggplot(Data,aes(x=x,y=y*YMul)) + geom_line() 
     }, 
     env = list(YMul=YMul))) 
    } 

plotfunc(xy, YMul=100) 

um zu sehen, wie das funktioniert, versuchen Sie die folgende Zeile in Isolation aus:

substitute({ggplot(Data, aes(x=x, y=y*YMul))}, list(YMul=100)) 

Answer 5

Haben Sie die Lösung von @wch (W. Chang)?

https://github.com/hadley/ggplot2/issues/743

Ich denke, es ist die bessere

ist im Wesentlichen wie der @baptiste sondern umfassen den Verweis auf die Umgebung direkt im Aufruf

ich es berichten hier

ggplot

g <- function() { 
    foo3 <- 4 
    ggplot(mtcars, aes(x = wt + foo3, y = mpg), 
     environment = environment()) + 
    geom_point() 
} 

g() 
# Works 

Answer 6

Ich verwende ggplot2, und Ihr Beispiel scheint mit der aktuellen Version gut zu funktionieren.

Es ist jedoch leicht, Varianten zu finden, die immer noch Probleme bereiten. Ich war selbst von ähnlichem Verhalten verwirrt, und so habe ich diesen Beitrag gefunden (Top-Google-Ergebnis für "ggplot, wie man Variablen bewertet, wenn sie bestanden wurden"). Zum Beispiel bewegen, wenn wir aus plotfunc ggplot:

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

plotfunc <- function(Data,YMul=2){ 
    geom_line(aes(x=x,y=y*YMul)) 
} 

ggplot(xy)+plotfunc(xy) 
# Error in eval(expr, envir, enclos) : object 'YMul' not found 

In der obigen Variante „die lokale Umgebung erfassen“ ist keine Lösung, weil ggplot nicht innerhalb der Funktion, und nur ggplot hat die „Umwelt genannt wird = "Argument.

Aber es gibt jetzt eine Familie von Funktionen "aes_", "aes_string", "aes_q", die wie "aes" sind, aber lokale Variablen erfassen. Wenn wir oben "aes_" verwenden, erhalten wir immer noch einen Fehler, weil es jetzt nichts über "x" weiß. Aber es ist einfach direkt auf die Daten zu beziehen, die das Problem löst:

plotfunc <- function(Data,YMul=2){ 
    geom_line(aes_(x=Data$x,y=Data$y*YMul)) 
} 
ggplot(xy)+plotfunc(xy) 
# works