Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- require(ggplot2)
- data("Titanic")
- titanic <- as.data.frame(Titanic)
- ggplot(titanic, aes(x = Sex, fill = Survived)) +
- theme_bw() + facet_wrap(~ Class) + geom_bar() +
- labs(y = "Passenger Count", title = "Titanic Survival Rates by Pclass and Sex")
Add Comment
Please, Sign In to add comment