install_github( "ThinkRstat/prenoms" )
library("prenoms")

library("ggplot2")
library("dplyr")
thinkrs <- prenoms %>%
  filter( 
    name == "Diane"   & sex == "F" |  
    name == "Romain"  & sex == "M" | 
    name == "Vincent" & sex == "M"   
  ) %>% 
  group_by(name, year, sex) %>%
  summarise( n = sum(n) ) %>%
  arrange( year )

ggplot( thinkrs, aes(x = year, y = n, color = name) ) + 
  geom_line() + 
  scale_x_continuous( breaks = seq(1900, 2020, by = 10) )