Question

我正在尝试构建一个R Shiny仪表板，该仪表板显示几个页面用于显示我的运动数据。我被困在如何为箱形图的仪表板编写代码，以显示每个教练消耗的卡路里分布。我想发生的事情是有一个selectInput，它允许用户从Trainers列表中进行选择，并且此选择将更新箱形图。但是，选择的变量将是一个虚拟变量，在该变量中，与“所有其他”训练者并排比较的情况下，我具有选择的训练者箱形图。

这是我的数据集的一个示例：

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)

运行此代码时，“所有数据”选项卡似乎很好，但是我无法正确显示Trainer Boxplots。页面出现错误，显示为：

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

有人可以帮我指出正确的方向吗？任何帮助，将不胜感激！谢谢！

Answer 1

我不确定这不是您想要的，但这也许会有所帮助。

首先，您在selectInput中的ui的ID为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
  })

}

R Shiny->根据虚拟变量的SelectInput创建一个箱形图

1 个答案: