R/draw_a_name.R

In Donowitz172/LiftUpTheReceiverIllMakeYouABeliever: Trying to insert Depeche Mode references everywhere

#' Function drawing the evolution of given names by year for a chosen name
#'
#' @param the_name a character
#' @param the_sex "M" or "F"
#'
#' @return ggplot of the_name
#'
#' @import dplyr
#' @import ggplot2
#' @import ggthemes
#'
#' @import assertthat
#'
#' @export
#'
#' @examples
#' draw_a_name("Viktor","M")
#'
#'

draw_a_name <- function(the_name, the_sex) {

  assert_that(the_sex %in% c("M", "F"))

  assert_that(is.character(the_name))

  l <- prenoms::prenoms %>%

    filter(name == the_name, sex == the_sex) %>%

    group_by(year) %>%

    summarise(number_of_people = sum(n)) %>%

    ggplot(aes(x = year, y = number_of_people)) +

    geom_line() +

    ggtitle(paste("number of people named", the_name, " by year"))

  return(l)

}