Zmienne lokalne w ramach AES

Question

Próbuję użyć zmiennej lokalnej w aes, kiedy działam z ggplotem. To jest mój problem sprowadza się do istoty:

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) 

Powoduje następującego błędu:

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

Wydaje się, że nie mogę używać zmiennych lokalnych (lub argumenty funkcji) w aes. Czy to możliwe, że występuje z powodu zawartości aes wykonywanych później, gdy zmienna lokalna jest poza zakresem? Jak mogę uniknąć tego problemu (poza używaniem zmiennej lokalnej w ramach aes)?

Answer 1

i przechwyciłoby lokalne środowisko,

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() jest aes oczekuje YMul być zróżnicowany w ramach data danych. Spróbuj tym YMull tam zamiast:

Dzięki @Justin: ggplot() „s aes wydaje szukać YMul w ramie data danych pierwszy, a jeśli nie znaleziono, a następnie w globalnym środowisku. Lubię dodawać takie zmienne do ramki danych, co jest sensowne dla mnie koncepcyjnie. Nie muszę też martwić się zmianami zmiennych globalnych, które mają nieoczekiwane konsekwencje dla funkcji. Ale wszystkie inne odpowiedzi również są poprawne. Użyj więc tego, który ci odpowiada.

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() 

Albo, jeśli chcesz funkcję w swojej przykład:

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

plotfunc(xy) 

Answer 3

Jeśli wykonanie kodu poza funkcją to działa. A jeśli wykonasz kod w ramach funkcji o zdefiniowanym globalnie YMul, to działa. Nie w pełni zrozumieć wewnętrzne funkcjonowanie ggplot ale to działa ...

YMul <- 2 

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

plotfunc(xy) 

Answer 4

Oto alternatywa, która pozwala przechodzić w dowolnej wartości przez YMul argumentu bez konieczności dodawania go do Data data.frame lub do globalnego środowiska:

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) 

, aby zobaczyć jak to działa, wypróbuj następującą linię w izolacji:

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

Answer 5

Czy spojrzałeś na rozwiązanie podane przez @wch (W. Chang)?

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

myślę, że jest lepszy

istocie jest, że jak @baptiste ale zawierają odniesienie do środowiska bezpośrednio w wywołaniu ggplot

to zgłosić tutaj

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

g() 
# Works 

Answer 6

Używam ggplot2, a twój przykład wydaje się działać dobrze z bieżącą wersją.

Jednak łatwo jest wymyślić warianty, które nadal stwarzają problemy. Sam byłem zdezorientowany przez podobne zachowanie i tak znalazłem ten post (najlepszy wynik Google dla "ggplot, jak oceniać zmienne po zdaniu"). Na przykład, jeśli poruszamy ggplot z plotfunc:

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 

W powyższym wariancie „przechwytywanie środowiska lokalnego” nie jest rozwiązaniem, ponieważ ggplot nie jest wywoływana z wewnątrz funkcji, a jedynie ggplot ma „środowisko = "argument.

Ale istnieje teraz rodzina funkcji "aes_", "aes_string", "aes_q", które są podobne do "aes", ale przechwytują zmienne lokalne. Jeśli użyjemy "aes_" w powyższym, nadal otrzymamy błąd, ponieważ teraz nie wie o "x". Ale łatwo jest odnieść się do tych danych, co rozwiązuje problem:

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