図はシャイニーには表示されません

Question

シリコンバレー企業の人種と人数の関係を示すShinyアプリケーションがあります。左側のツールバーは表示されますが、プロットは表示されません。コードをどのように変更すればよいですか？ここで

はコードです：

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

bcl <- read.csv("E:/country/data/reveal.csv") 

ui <- fluidPage(
titlePanel("Silicon valley"), 
sidebarLayout(
sidebarPanel(
sliderInput("countInput", "count", 0, 100, c(25, 40)), 
radioButtons("jobInput", "Job category", 
       choices = c("Technicians", "Professionals", "Sales workers", "Administrative support"), 
       selected = "Technicians"), 
selectInput("companyInput", "company", 
       choices = c("Twitter", "Uber", "View")) 
), 
mainPanel(
    plotOutput("coolplot"), 
    br(), br(), 
    tableOutput("results") 
) 
) 
) 

server <- function(input, output) { 
output$coolplot <- renderPlot({ 
filtered <- 
    bcl %>% 
    filter(count == input$countInput, 
     job_category == input$jobInput, 
     company == input$companyInput 
) 
ggplot(filtered, aes(race)) + 
    geom_histogram() 
}) 
} 

shinyApp(ui = ui, server = server) 

そして、ここでの結果である：

Answer 1

これを試してみてください：それはあるので、私はgeom_barにgeom_histogramを変更した

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

bcl <- read.csv(file = "reveal.csv", colClasses = c("character", "integer", "factor", "factor", "factor", "integer"), na.strings = c("na", "NA")) %>% na.omit() 

ui <- fluidPage(titlePanel("Silicon valley"), 
       sidebarLayout(
        sidebarPanel(
        sliderInput("countInput", "count", 0, 100, c(0, 100)), 
        radioButtons(
         "jobInput", 
         "Job category", 
         choices = c(
         "Technicians", 
         "Professionals", 
         "Sales workers", 
         "Administrative support" 
        ), 
         selected = "Technicians" 
        ), 
        selectInput("companyInput", "company", 
           choices = c("Twitter", "Uber", "View")) 
       ), 
        mainPanel(plotOutput("coolplot"), 
          br(), br(), 
          tableOutput("results")) 
       )) 

server <- function(input, output) { 
    output$coolplot <- renderPlot({ 
    filtered <- 
     bcl %>% 
     filter(
     count == input$countInput, 
     job_category == input$jobInput, 
     company == input$companyInput 
    ) 
    ggplot(filtered, aes(race)) + 
     geom_bar() 
    }) 
} 

shinyApp(ui = ui, server = server) 

あなたのデータのためのより良いオプションです。どう考えているか教えてください。