Titanic Data

Kristy Wedel

Titanic Survival Data

Titanic Disaster

  • The Titanic struck an iceburg at 23:40 on Sunday, April 14, 1912
  • There were 3547 passengers and crew

Who survived

mosaicplot(Titanic, main = "Survival on the Titanic", color = "blue")

plot of chunk unnamed-chunk-2

server.R

library(shiny)

data(Titanic) df <- as.data.frame(Titanic)

shinyServer( function(input, output) { output$plot1 <- renderPlot({

    selectedData <- df[df$Class==input$inClass & df$Sex==input$inGender & df$Age==input$inAge,5]
    titanicplot <- barplot(selectedData,
                    main="Titanic Survival Stats",
                    ylab="Total #",
                    col=c("darkorchid1", "darkolivegreen3"),
                    legend = c("Fatalities", "Survivors")
    )
})

})

Shiny App