圖中不顯示閃亮

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

試試這個：

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) 

我已經改變geom_histogram到geom_bar，因爲它是爲您的數據提供更好的選擇。讓我知道你的想法。