R/draw_a_name.R

In SachaIZADI/R-for-datascience-Package-Training: A package to practice with Git & R packages

#' Draw the evolution of the number of occurence of a given name
#'
#' @param a_name the name you want to observe
#' @import tidyr dplyr ggplot2  assertthat
#' @return a graph
#' @export
#'
#' @examples
#' \dontrun{
#' draw_a_name("Sacha")
#' }
#'
#'

draw_a_name <- function(a_name){
  assert_that(is.character(a_name))
  data("prenomsDB",package = "PackageHomeWork")


  prenomsDB %>% filter(name==a_name) %>%
    group_by(year) %>%
    summarize(count=n()) %>%
    ggplot(aes(x=year, y=count))+ geom_line()
}