Basic Swimmer Plot

# Libraries
library(ggplot2)
library(swimplot)

set.seed(1931)
ID <- 1:50
Time <- rexp(n = 50, rate = 0.5)
Status <- sample(c("Alive", "Lost to follow up", "Dead"), 50, replace=T, prob = c(0.7, 0.25, 0.05))
base <- data.frame(ID, Time, Status)

swplot <- swimmer_plot(base,
                       id='ID',
                       start = 0, end='Time',
                       name_fill='Status',
                       id_order='Time',
                       identifiers=FALSE,
                       alpha=0.75,width=.8)

swplot+
  ggplot2::scale_fill_manual(name="Status",values=c("#4daf4a", "#e41a1c", "#377eb8"))+
  ggplot2::ylab('Time (Months)')