Repository to hold the data and materials for the Wonderful Wednesdays webinar series https://www.psiweb.org/sigs-special-interest-groups/visualisation/welcome-to-wonderful-wednesdays
The example simulated data set is based on large phase III clinical trials in Breast cancer such as ALTTO.
The “trial” aims to determine if a combination of two therapies tablemab (T) plus vismab (V) improves outcomes for metastatic human epidermal growth factor 2–positive breast cancer and increases the pathologic complete response in the neoadjuvant setting (treatment given as a first step to shrink a tumor before the main treatment or surgery).
The trial has four treatment arms, patients with centrally confirmed human epidermal growth factor 2-positive early breast cancer were randomly assigned to 1 year of adjuvant therapy with V, T, their sequence (T→V), or their combination (T+V) for 52 weeks. The primary end point was progression-free survival (PFS).
As defined by Cancer.gov: “the length of time during and after the treatment of a disease, such as cancer, that a patient lives with the disease but it does not get worse. In a clinical trial, measuring the progression-free survival is one way to see how well a new treatment works”.
The data set is an abridged version of the CDISC ADaM ADTTE time to event data set.
The data set contains the following variables:
A number of baseline measurements are also included such as age, hormone receptor status and prior radiotherapy treatment. Additional details on reasons for study discontinuation and censoring event description are also included.
Visualise the pattern of events (disease progression, death, etc) on a summary data level or on a patient level data. Highlight differences between treatments or subgroups.
Below is a crude example of how to work with the CDISC ADaM ADTTE data set. The example takes the AVAL, CNSR and TRT01P variables to plot Kaplan-Meier estimates by treatment.
library(tidyverse)
library(broom)
library(survival)
# load data
ADTTE <- read_csv('2024-08-12-psi-vissig-adtte.csv')
# plot KM curve by treatment
survfit(Surv(AVAL, CNSR == 0) ~ TRT01P , data = ADTTE ) %>%
tidy(fit) %>%
ggplot(aes(time, estimate, group = strata, colour = strata)) +
geom_line() +
geom_point() +
ggtitle("Kaplan-Meier estimates by treatment")