ggplot第二課：美化篇

這篇文章告訴大家如何製作圖表

library(shiny)
sidebarPanel(sliderInput(inputId = "bins",
                  label = "Number of bins:",
                  min = 1,
                  max = 50,
                  value = 30))

Number of bins:

mainPanel(plotOutput(outputId = "distPlot"))

renderPlot({
    
    x    <- airquality$Ozone
    x    <- na.omit(x)
    bins <- seq(min(x), max(x), length.out = input$bins + 1)
    
    hist(x, breaks = bins, col = "#75AADB", border = "black",
         xlab = "Ozone level",
         main = "Histogram of Ozone level")
    
  })