# code adapdated from Bernardo Lares
order <- c("Role", "Place", "Type", "Start", "End")
today <- as.character(Sys.Date())
cv <- data.frame(rbind(
 c("PhD Student in Statistics", "UCLouvain", "Academic", "2017-09-01", today),
 c("MSc in Econometrics", "Maastricht University", "Academic", "2015-09-01", "2016-08-31"),
 c("MSc in Economics", "KULeuven", "Academic", "2013-09-01", "2015-01-01"),
 c("Faculty Exchange", "UIUC, USA", "Academic", "2014-08-01", "2014-12-31"),
 c("BSc in Economics", "UCLouvain", "Academic", "2010-09-01", "2013-08-31"),
 c("Teaching Assistant in Statistics", "UCLouvain", "Work Experience", "2017-09-01", today),
 c("Data Scientist Consultant", "Business & Decision", "Work Experience", "2016-09-01", "2017-07-31"),
 c("European Public Affairs Intern", "BNP Paribas", "Work Experience", "2015-04-01", "2015-07-31"),
 c("Audit Intern", "Deloitte Luxembourg", "Work Experience", "2015-01-01", "2015-03-31"),
 c("International Tennis Chair Umpire", "International Tennis Federation", "Extra", "2015-05-01", today)
))
colnames(cv) <- order

plot_timeline(event = cv$Role, 
              start = cv$Start, 
              end = cv$End, 
              label = cv$Place, 
              group = cv$Type,
              save = FALSE,
              subtitle = "Antoine Soetewey")

See my detailed CV at www.antoinesoetewey.com/cv/ or go back to my homepage.