time-to-event-plot.R

library(tidyverse)

## Simple example dataset
time_on_study <- tibble(
  id = 1:5,
  start_followup = 0,
  time_followup = c(2, 4, 3, 1, 3),
  age_baseline = c(18, 30, 28, 20, 18),
  event = factor(c(1, 0, 1, 1, 0), labels = c("Censored", "Event"))
)

## Without age
ggplot(time_on_study) +
  geom_point(aes(start_followup, id),
             size = 3, shape = 15) +
  geom_point(aes(time_followup, id, shape = event),
             size = 3) +
  geom_segment(aes(start_followup, id,
                   xend = time_followup, yend = id)) +
  labs(
    title = "Time-on-study example",
    x = "Years since start of follow-up",
    y = "Subject"
  ) +
  theme_minimal()

## With age as color
ggplot(time_on_study) +
  geom_point(aes(start_followup, id, color = age_baseline),
             size = 3, shape = 15) +
  geom_point(aes(time_followup, id, shape = event, color = age_baseline),
             size = 3) +
  geom_segment(aes(start_followup, id,
                   xend = time_followup, yend = id,
                   color = age_baseline)) +
  labs(
    title = "Time-on-study example",
    x = "Years since start of follow-up",
    y = "Subject"
  ) +
  theme_minimal()