Shiny : ggplot2에서 동적으로 사용되는 열을 변경하십시오.

Question

'selectizeInput'당 x 축을 ggplot으로 선택할 수있는 반짝이는 앱을 만들려고했습니다.

나는 Gallery Example에 대해 알고 있는데, 이것은 원하는 열을 사전 선택하여 해결되었습니다. 왜냐하면 제 경우에는 데이터 구조가 속성을 aes()에 동적으로 변경할 수있을 때 데이터 구조가 조금 복잡하기 때문입니다.

더 나은 이해를 위해 최소한의 작업 예제를 추가했습니다. 불행히도 ggplot은 해당 열을 사용하는 대신 입력 값을 값으로 사용합니다.

library(shiny) 
library(ggplot2) 


# Define UI for application that draws a histogram 
ui <- shinyUI(fluidPage(

    # Application title 
    titlePanel("Select x Axis"),  

    sidebarLayout(
     sidebarPanel(
     selectizeInput("xaxis", 
         label = "x-Axis", 
         choices = c("carat", "depth", "table"))    
    ),   

     mainPanel(
     plotOutput("Plot") 
    ) 
    ) 
)) 

server <- shinyServer(function(input, output) { 

    output$Plot <- renderPlot({ 
    p <- ggplot(diamonds, aes(x = input$xaxis, y = price)) 
    p <-p + geom_point() 
    print(p) 
    }) 
}) 

# Run the application 
shinyApp(ui = ui, server = server) 

Answer 1

aes은 NSE (비표준 평가)를 사용합니다. 이는 대화식 사용에는 좋지만 프로그래밍에 그리 큰 것은 아닙니다. 이러한 이유 때문에 두 가지 SE (표준 평가) 대안 인 aes_ (이전 aes_q)과 aes_string이 있습니다. 첫 번째는 인용 된 입력을 받아들입니다. 두 번째 문자열은 입력입니다. 이 경우 aes_string을 사용하여 문제를 쉽게 해결할 수 있습니다 (selectizeInput은 문자열을 제공합니다).

ggplot(diamonds, aes_string(x = input$xaxis, y = 'price')) + 
    geom_point()