R/draw_names.R

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

#' Draw the evolution of the occurences of different names
#'
#' @param names the names you want to observe
#'@import dplyr tidyr ggplot2 prenoms
#' @return a ggplot graph.
#' @export
#'
#' @examples
#' \dontrun{
#' draw_names(c("Sacha","Hugo",...))
#' }
draw_names <- function(names){
  assert_that(is.character(class(names)))
  data("prenomDB")
  prenomsDB %>% filter(name %in% names) %>%
    group_by(year,name) %>%
    summarize(count=n()) %>%
    ggplot(aes(x=year, y=count,color=name))+ geom_line()
}