Блестящая панель инструментов для отображения правильного графика в соответствии с вводом пользователя через radioButton - PullRequest
Новая
       80

Блестящая панель инструментов для отображения правильного графика в соответствии с вводом пользователя через radioButton

0 голосов
/ 07 мая 2020

Я впервые спрашиваю здесь. Я постараюсь быть как можно более кратким, но при этом предоставлю необходимую информацию.

Я создаю информационную панель, используя shinydashboard, и одна из вещей, которые я хочу показать на информационной панели, это следующее:

Пользователь нажимает кнопку RadioButton (с 10 опциями, расположенными на боковой панели), а затем я хочу показать график, соответствующий выбранному переключателю на теле панели. Это означает, что если пользователь нажимает другую кнопку, рисуется другой график (возможно, из другого набора данных). Вот код с фиктивными переменными / данными: 

sidebar <- dashboardSidebar(
    sidebarMenu(
    menuItem("Dashboard", tabName = "Data", icon = icon("dashboard")),
    radioButtons(inputId = "Partner", label = "Choose a Partner:", selected = "A",
                 choices = c("A", "B", "C", "D", "E", "F", "G", "H", "I", "J")
                            )
               )
            )
)

Это соответствующая часть части тела: 

tabBox(title = "Partnerships", width = 6,
       tabPanel("Parner A", plotOutput("partnerA")))

И это просто фрагмент на серверной части: 

Partner <- reactive({
      filter (data, partner == input$Partner)
    })
    output$partnerA <- renderPlot({
         p <-
            bphc_bsa %>% 
            filter(partner == "A") %>%
            ggplot(aes(x=Grade, fill = Grade)) +
            geom_bar()

Я получил график и правые радиокнопки на боковой панели, но нажатие кнопки не влияет на вывод. Я очень ценю любую помощь, поскольку я совершенно новичок в этом.

...