Shiny Geyser with ggplot

App.R

# Load necessary libraries
library(ggplot2)
library(shiny)

# Load Old Faithful geyser data
data <- faithful

# Define UI
ui <- fluidPage(
  titlePanel("Old Faithful Geyser Data"),
  sidebarLayout(
    sidebarPanel(
      sliderInput("bins",
                  "Number of bins:",
                  min = 1,
                  max = 50,
                  value = 30)
    ),
    mainPanel(
      plotOutput("distPlot")
    )
  )
)

# Define server logic
server <- function(input, output) {
  
  output$distPlot <- renderPlot({
    # Create a histogram of the eruption durations with ggplot2
    ggplot(data, aes(x = waiting)) +
      geom_histogram(binwidth = diff(range(data$waiting)) / input$bins, fill = "skyblue", color = "black") +
      labs(title = "Histogram of Old Faithful Eruption Durations", x = "Eruption Duration (minutes)", y = "Frequency") +
      theme(text=element_text(size=16,  family="mono"))
  })
}

shinyApp(ui = ui, server = server)