timeline

library(timevis)
library(tidyverse)
# load lab timeline csv data
timelines <- read.csv(file.choose())
timelines <- arrange(timelines, start)
head(timelines,3)

# create grouping lookup table
labgroups <- data.frame(
  id = c("pi", "admin", "tech", "postdoc", "phd", "building"),
  content = c("PI", "Admin", "Technician", "Postdoc", "PhD", "Building") 
)
# timelines <- select(timelines, content:group)

#visualise (blue= current members)
chart <- timevis(timelines, groups = labgroups)

Lab history interactive chart

---

This page was made using R markdown (because some of us are data science nerds)