Link for deployed Shiny Application:

https://andygrammer.shinyapps.io/DDP_Week4/

Link for code of this presentation, and the code for the Shiny App:

https://github.com/Andygrammer/Coursera-Developing-Data-Products-Week4

data <- data.frame(HairEyeColor)
summary(data)

    Hair      Eye        Sex          Freq      
 Black:8   Brown:8   Male  :16   Min.   : 2.00  
 Brown:8   Blue :8   Female:16   1st Qu.: 7.00  
 Red  :8   Hazel:8               Median :10.00  
 Blond:8   Green:8               Mean   :18.50  
                                 3rd Qu.:29.25  
                                 Max.   :66.00  

head(data)

   Hair   Eye  Sex Freq
1 Black Brown Male   32
2 Brown Brown Male   53
3   Red Brown Male   10
4 Blond Brown Male    3
5 Black  Blue Male   11
6 Brown  Blue Male   50

library(shiny)

# Define UI for application that draws a histogram
shinyUI(fluidPage(
    
    # Application title
    titlePanel("Hair and Eye Color of Students Data"),
    
    sidebarLayout(
        sidebarPanel(
            
            radioButtons("radio", label=h4("Choose an option"),
                         choices=list("Hair color" = 1, "Eye color" = 2), 
                         selected = 1),
            hr(),
            h4("Documentation"),
            h5("This is a Distribution of hair and eye color and sex in 592
               statistics students."),
            h5("Please, select an option above to view the frequency
               of the students at the University of Delaware,
               comparing their hair or eye color, by sex (male or female)."),
            h5("Take a look at right to find out the results.")
        ),
        
        # Show a plot of the distribution
        mainPanel(
            plotOutput("distPlot")
        )
    )
))

library(shiny)
library(ggplot2)

# Define server logic required to draw a plot
shinyServer(function(input, output) {
    # Load the dataset
    student_data <- data.frame(HairEyeColor)
    
    # Create a reactive context
    output$distPlot <- renderPlot({
        
        # Get radio button selection
        radio_choice <- input$radio
        
        if(radio_choice == 1) {
            bar_colors <- c("black", "brown", "red", "yellow")
            legend_title <- "Hair color"
            fill_data <- student_data$Hair
        }
        else {
            bar_colors <- c("brown", "blue", "yellow", "green")
            legend_title <- "Eye color"
            fill_data <- student_data$Eye
        }
        
        ggplot(student_data, aes(factor(Sex), 
                                 Freq, 
                                 fill=fill_data)) +
            geom_bar(stat="identity", position="dodge") +
            scale_fill_manual(legend_title, values = bar_colors)
    })

})