nnames.R

library(prenoms)
library(babynames)
library(ggplot2)
library(dplyr)

nnames <- function(data, origin){
  data %>% 
    group_by(sex, year) %>% 
    summarise(n = length(unique(name))) %>% 
    mutate( origin = origin ) %>% 
    arrange(year)
}
  
data <- bind_rows(
  nnames( prenoms, "fr"),
  nnames( babynames, "us"),
)

ggplot(data, aes(year, n, color = sex, group = origin) ) + 
  geom_point() +
  facet_grid( ~ origin )