R/draw_a_name.R

In SebastienMoeller/Map-536-Homework-02:

#' Plotting French name frquency since 1900
#'
#' @param the_name
#' @param the_sex
#'
#' @return
#' @import dplyr
#' @import ggplot2
#' @import prenoms
#' @import ggthemes
#' @import assertthat
#' @export
#'
#' @examples
draw_a_name <- function(the_name, the_sex){
  assert_that(the_sex %in% c("M", "F"))
  assert_that(is.string(the_name))

  the_plot <- prenoms::prenoms %>%
    filter(sex==the_sex, name==the_name) %>%
    group_by(year, sex,name) %>%
    summarize(n = sum(n)) %>%
    ggplot(aes(x = year, y = n)) +
    geom_line() +
    labs(title = the_name) +
    theme_gdocs()
  return(the_plot)
}