Titanic assignment

getwd() setwd(“/Users/fekihasuleyman/Desktop/B BUS 301”)

install.packages(tidyverse) library(tidyverse) library(dplyr)

titanicdata <- readxl::read_excel(“TitanicData-1.xlsx”) head(titanicdata)

pclass_survived <- titanicdata %>% group_by(pclass, survived) %>% summarize(n = n()) %>% mutate(percent = n / sum(n))

pclass_survival

pclass_sex_survival <- titanicdata %>% group_by(pclass, sex, survived) %>% summarize(n = n()) %>% mutate(percent = n / sum(n))

pclass_sex_survival_graph <- pclass_sex_survival %>% filter(survived == “Survived”) %>% ggplot(mapping = aes(x = pclass, y= percent, fill = pclass)) + geom_col() + facet_grid(~sex)

pclass_sex_survival_graph + labs(title =“Titanic Survival Rates”, subtitle = “Percent by Gender and Cabin Class”, caption = “Source: Encyclopedia Titanica”) + scale_y_continuous(labels = scales::percent) + theme_grey() + theme( axis.title=element_blank(), legend.position = “none” ) Rubric