week4 presentation

This shiny app will help you to explor baby names. you can find the app here https://ammar-k.shinyapps.io/week4/.

the app have 3 tabs:-

• Intro

• Plot, it will show you a histogram of the selected name

• Table, it will show you a table with the count and proption each year for the selected name

a simple code to produce the histogram for name Emily

library(babynames)
library(dplyr)
library(ggplot2)
babynames %>% filter(name == "Emily",year %in% 2000:2017) %>%
    group_by(name) %>% filter(prop > 0.001) %>%
  ggplot(aes(x = year, y = n)) +
             geom_col()

babynames %>% filter(name == "Emily",year %in% 2000:2017) %>%
    group_by(name) %>% filter(prop > 0.001) %>% knitr::kable()