This Shiny application allows users to visualize and analyze birth data from the United States between the years 2000 and 2014.

It provides interactive plots to explore birth trends by year, month, and day of the week based on the US_births_2000_2014 dataset from the fivethirtyeight package.

The Shiny app and the related documentation are available at:

https://lm25.shinyapps.io/lm_myapp/

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

data <- US_births_2000_2014

shinyServer(function(input, output) {
  filtered_data <- reactive({
    variable <- input$variable
    
    data %>%
      group_by_at(variable) %>%
      summarise(avg_births = mean(births)) %>%
      ungroup()
  })
  
  output$caption <- renderText({
    paste("Average Births by", input$variable)
  })
  
  output$BirthPlot <- renderPlot({
    variable <- input$variable
    filtered <- filtered_data()
    x_vals <- filtered[[variable]]
    y_vals <- filtered$avg_births
    
    ggplot(filtered, aes(x = x_vals, y = y_vals)) +
      geom_point(color = "blue", size = 3) +  
      labs(x = gsub("_", " ", variable),  
           y = "Average Number of Births") +
      theme_minimal()  
  })
  
  output$mean <- renderText({
    filtered <- filtered_data()
    max_avg <- max(filtered$avg_births)
    
    highest_value <- filtered %>%
      filter(avg_births == max_avg) %>%
      select(1) %>%
      unlist()  
    
    paste("The highest average number of births occurs in/on", 
          highest_value, "with", round(max_avg, 0), "births.")
  })
})