r - 我正在编写我的第一个闪亮的应用程序。我有两个错误：“&”对因素没有意义，“职业”在应用程序中找不到

Question

这是一个简单的闪亮应用程序。使用 R 中的income.csv 数据集的三个输入。

我附上代码。我找不到我在哪里犯了错误。大概是因为两条错误消息，我没有得到输出。

一条消息在控制台中显示为 Ops.factor(left, right) 中的警告：'&' 对因素没有意义警告：%in% 中的错误：找不到对象“职业”

职业是数据集中的一个字段。

运行应用程序时出现另一条消息；找不到对象“职业”

我非常感谢您的意见。

这是代码：

library(shiny)
library(dplyr)
library(ggplot2)

setwd("C:/Users/Corsair_Barillas/Documents/FAB/Quant/Professional Certifications/UC Berkeley/Module 10 Interactive User Interface")
income <- read.csv("income.csv")
Occupationlist <- unique(income$occupation)

ui <- fluidPage(
  titlePanel("Module 10 Assignment"),
  sidebarLayout(
    sidebarPanel(
      selectInput(inputId = "subset_income", label = "Select Income Bracket:", 
                  choices = unique(income$income), multiple = FALSE),
      selectInput(inputId = "set_yaxis", label = "Select Criteria:", 
                  choices = c(HoursPerWeek = "hours_per_week", CapitalLoss = "capital_loss")),
      checkboxGroupInput(inputId = "subset_occupation", label = "Select Occupation:", 
                  choices = Occupationlist, selected = Occupationlist)),
    mainPanel(plotOutput(outputId = "myfigure"))
  )
)

server <- function(input, output) {
  create_subset <- reactive(income %>%
                              filter(capital_loss > 0) &
                              income %in% input$subset_income &
                              occupation %in% input$subset_occupation) 

  output$myfigure <- renderPlot(ggplot(create_subset()) +
                                  geom_boxplot(aes_string(x = occupation, y = set_yaxis,
                                                        col = "blue"))+
                                  theme_bw(18) + 
                                  ylab("Capital Loss") +
                                  xlab("Occupation"))
}

shinyApp(ui,server)

标签： rshinyapps