R Shiny --› Создайте коробочную диаграмму на основе SelectInput фиктивных переменных

Я пытаюсь создать панель мониторинга R Shiny, которая отображает пару страниц для данных о моих упражнениях. Я застрял в том, как написать код для приборной панели блочных диаграмм, отображающих распределение калорий, сожженных для каждого тренера. Что я хочу, так это иметь selectInput, который позволяет пользователю выбирать из списка тренеров, и этот выбор обновит блок-график. Но выбранная переменная будет фиктивной переменной, где у меня есть выбранный блок-график Trainer, сравниваемый со «Всеми другими» тренерами рядом.

Вот пример моего набора данных:

VisitNum VisitNumMonth Date       ClassLength Calories AvgHR Location Trainer   Visits_Trainer
1        1             12/15/19   56          602      128   A        Mike      4
2        1             12/16/19   55          610      130   A        Mike      4
3        2             01/04/20   52          550      120   A        Sally     2
4        2             01/05/20   61          575      134   B        Jennie    5
5        2             01/10/20   57          654      133   A        Tim       1
6        2             01/17/20   55          592      119   A        Rachael   1
7        3             02/04/20   50          632      129   B        Jennie    5
8        3             02/22/20   48          630      125   B        Jennie    5
9        3             02/28/20   59          609      136   B        Marshall  6
10       4             03/03/20   53          598      134   A        Mike      4

Вот мой код:

library(RSQLite)
library(sqldf)
library(shiny)
library(shinydashboard)
library(DT)
library(ggplot2)
library(shiny)

data=as.data.frame(read_excel("mydata.xlsx",sheet=1))

#Create "Other" value for Trainers with less than 3 visits
data$Trainer2=ifelse(data$Visits_Trainer>=3,data$Trainer,"Other")

#Remove "Other" as possible selection in SelectInput
TrainerChoices=unique(data$Trainer2)
TrainerChoices=TrainerChoices[!TrainerChoices %in% "Other"]

Table1=sqldf("select VisitNum as 'Visit #', Date, Location as 'Studio', Trainer, Calories, AvgHR
             from data
             group by VisitNum, Date, Location, Trainer")


# Define UI for application
ui <- fluidPage(
  titlePanel("Exercise Data Analysis"),
  dashboardPage(
    dashboardHeader(title=""),
    dashboardSidebar(
      sidebarMenu(
        menuItem("All Data",
                 tabName = "AllData",
                 icon=icon("table")
        ),
        menuItem("Trainer Boxplots",
                 tabName = "trainbox",
                 icon=icon("dumbbell")
        ),
        selectInput(inputId = "trainerselect",label="Select a Trainer:",choices=TrainerChoices)

      )
    ),
    dashboardBody(
      tabItems(
        tabItem(
          tabName = "AllData",
          DTOutput("alldata")
            ),


      tabItem(
        tabName = "trainbox",
        plotOutput("trainbox")

      ))
    )
  )
)



# Define server logic 
server <- function(input, output) {
#----------ALL DATA TABLE----------#
  output$alldata=renderDT({
    datatable(Table1,options=list(pageLength=10,
                              lengthMenu=c(10,15,20,25)
    ),rownames = FALSE)
  })

#---------- TRAINER BOXPLOTS ----------#


TrainData=reactive({
  NewDummy=ifelse(data$Trainer2==input$TrainerChoices,input$TrainerChoices,"Other")
  return(NewDummy)


})

output$trainbox=renderPlot({
 plot=ggplot(TrainData(),aes(y=Calories,x=as.factor(NewDummy)))+geom_boxplot(aes(col=as.factor(NewDummy)))
 plot
  })

  }


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

Когда я запускаю этот код, вкладка «Все данные» отображается просто отлично, но я не могу заставить боксы тренера отображаться должным образом. Страница появляется с ошибкой, которая гласит:

`data` must be a data frame, or other object coercible by `fortify()`, not a logical vector

Может кто-нибудь, пожалуйста, помогите мне в правильном направлении? Любая помощь будет оценена по достоинству! Благодарю вас!


r reactive dashboard shiny
person user2813606    schedule 16.05.2020    source источник

Ответы (1)


arrow_upward
1
arrow_downward

Я не уверен, что это то, что вы имели в виду, но, возможно, это будет полезно.

Во-первых, ваш selectInput в ui имеет идентификатор trainerselect, поэтому вам нужно получить доступ через input$trainerselect, а не TrainerChoices.

Ваше TrainData реактивное выражение вернет символьное значение (имя тренера или «Другое»); Я предполагаю, что вы хотите использовать data в качестве источника данных, а не это. NewDummy — локальная переменная в реактивном выражении. Возможно, это то, что вы хотите от TrainData().

Если я ошибаюсь/запутался, пожалуйста, дайте мне знать.

server <- function(input, output) {
  #----------ALL DATA TABLE----------#
  output$alldata=renderDT({
    datatable(Table1,options=list(pageLength=10,
                                  lengthMenu=c(10,15,20,25)
    ),rownames = FALSE)
  })

  #---------- TRAINER BOXPLOTS ----------#
  TrainData=reactive({
    NewDummy=ifelse(data$Trainer2==input$trainerselect,input$trainerselect,"Other")
    return(NewDummy)
  })

  output$trainbox=renderPlot({
    NewDummy <- TrainData()
    plot=ggplot(data,aes(y=Calories,x=as.factor(NewDummy)))+
      geom_boxplot(aes(col=as.factor(NewDummy)))
    plot
  })

}
person Ben    schedule 16.05.2020