ggplot2의 geom_text에서 사용자가 제공 한 레이블에 오류가 나타나는 이유는 무엇입니까?

Question

처음 몇 가지 배경. ggplot2를 사용하여 폭포수를 만들려고합니다. 트릭을 수행하는 다음 함수를 작성했습니다. 그러나 geom_text 레이블에 사용자가 제공 한 서식 지정 기능을 제공하려고 할 때 작은 문제가 있습니다. 평가에서

오류 (EXPR, envir, enclos) :

이

범인은이다 기능 "포맷"을 찾을 수 없습니다이 함수를 호출

plotIt<-function() 
{ 
    require(ggplot2) 
    require(scales) 

    # Define formatting functions 
    formatter<-function(x, ...) format(x, big.mark = ' ', trim = TRUE, scientific = FALSE, ...) 
    strwr<-function(x) gsub(" ", "\n", x) 

    # Build data frame to plot 
    mydf<-structure(list(Description = structure(1:6, .Label = LETTERS[1:6], class = "factor"), 
         change = c(0.86, 0.14, 0.08, -0.05, -0.03, 1.00), 
         id = 1:6, 
         end = c(0.86, 1.00, 1.08, 1.03, 1.00, 0.00), 
         start = c(0, 0.86, 1.00, 1.08, 1.03, 1.00), 
         type = structure(c(2L, 2L, 2L, 1L, 1L, 2L), .Label = c("Neg", "Pos"), class = "factor")), 
        .Names = c("Description", "change", "id", "end", "start", "type"), 
        row.names = LETTERS[1:6], class = "data.frame") 

    # Plot it 
    ggplot(mydf, aes(Description, fill = type)) + 
    geom_rect(aes(x = Description, xmin = id - 0.45, xmax = id + 0.45, ymin = end, ymax = start)) + 
    scale_y_continuous(labels = formatter) + 
    scale_x_discrete("", breaks = levels(mydf$Description), labels = strwr(levels(mydf$Description))) + 
    geom_text(aes(x = id, y = end, label = formatter(change)), vjust = 1, size = 3) 
} 

다음과 같은 오류 메시지를 생성합니다 최종 행 geom_text에 label = formatter (change) 코드가 있습니다. 레이블 = 쉼표 (바꾸기)로 바꾸면 모든 것이 잘 작동합니다. "쉼표"기능은 저울 패키지에서 제공됩니다. 그래서 짧은 :

geom_text(aes(x = id, y = end, label = comma(change)), vjust = 1, size = 3) 

작동하지만

geom_text(aes(x = id, y = end, label = formatter(change)), vjust = 1, size = 3) 

하지 않습니다.

출력은 다음과 같습니다

왜 내 자신의 포맷 기능을 허용 geom_text하지 않는 이유는 무엇입니까? 나는 그것이 단순한 것이라고 확신하지만 나는 그것을 볼 수 없다.

Answer 1

나는 이것이 ggplot 호출 환경의 문제라고 생각합니다. 내가 알고있는 것처럼 scales에서 함수는 글로벌 환경에서 사용할 수 있기 때문에

ggplot(mydf, aes(Description, fill = type), environment = environment()) + 
    geom_rect(aes(x = Description, xmin = id - 0.45, xmax = id + 0.45, ymin = end, ymax = start)) + 
    scale_y_continuous(labels = formatter) + 
    scale_x_discrete("", breaks = levels(mydf$Description), labels = strwr(levels(mydf$Description))) + 
    geom_text(aes(x = id, y = end, label = formatter(change)), vjust = 1, size = 3) 

, 이것은이지만 기능 plotIt() 내부 formatter를 정의하고 있기 때문에, 그것을 사용할 수 없습니다 : 당신이 environment = environment()를 추가하는 경우, 그것은 작동 .

코드를 정의 된 함수 (중괄호 안의 것부터 시작) 밖에서 실행하면 모든 코드가 작동한다는 것을 알 수 있습니다. 이것은 글로벌 환경에 formatter을 넣기 때문입니다. 좀 더 설명으로

, 당신이있어 오류 메시지는 다음과 같습니다 Error in eval(expr, envir, enclos) : could not find function "formatter". base 함수 eval()을 보면 envir 기본값은 parent.frame()입니다. environment()의 출력을 보면 <environment: R_GlobalEnv>입니다. 따라서 eval()이 작동하면 올바른 장소를 조사합니다.

Answer 2

waterfall package을 사용할 수도 있습니다. 다음은 기능을 보여주는 간단한 example입니다. 서식에 대해 많은 관심을 기울여야한다고 생각합니다.