3 색 세그먼트로 대화식 선을 만드시겠습니까?

Question

shiny + ggplot2, ggvis 또는 이와 비슷한 대화식 그래프를 만들 수 있습니까?

개념은 사용자가 50 % 컷오프 이동 또는 75 % 컷오프 색 조정되고 있으면 세그먼트의 이름이 각각의 세그먼트의 중간 재조정한다는 것이다.

Answer 1

나는 정말로 여기에 원하는 것이 단지 2 개의 세그먼트에 대한 첫 번째 추측임을 알고 있기 때문에.

library(shiny) 
library(ggplot2) 
ui <- shinyUI(fluidPage(

    sidebarLayout(
     sidebarPanel(
     sliderInput("cutoff", 
        "cutoff", 
        min = 0.01, 
        max = 1, 
        step = 0.01, 
        value = 0.5) 
    ), 

     mainPanel(
     plotOutput("plot") 
    ) 
    ) 
)) 


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

    output$plot <- renderPlot({ 
    df <- data.frame(x = seq(0.01, 1, 0.01), y = seq(0.01, 1, 0.01), 
         group = c(rep("a", round(input$cutoff * 100)), 
           rep("b", round(((1-input$cutoff) * 100))) 
           ) 
        ) 
    labelPos <- data.frame(pos = c(input$cutoff - input$cutoff/2, 
            (input$cutoff + (1 - input$cutoff)/2) 
            ), 
          label = c("a", "b") 
          ) 

    ggplot()+ 
     geom_ribbon(data = df, aes(x=x, ymin = -0.2, ymax = 0.2, fill = group), show.legend = FALSE) + 
     geom_label(data = labelPos, aes(x = pos, y = 0.3, label = label)) + 
     coord_cartesian(ylim = c(-1,1)) + 
     theme(line = element_blank(), 
       text = element_blank(), 
       line = element_blank(), 
       title = element_blank() 
      ) 

    }) 
}) 


shinyApp(ui = ui, server = server)