Hello!
I mainly used the website "Creating swimmer plots with ease" to write my code. My code consist of:
swimmer_plot(df=ClinicalTrialLength, id = "Study_Patients", end = "Time_since_surgery", fill= 'lightblue', id_order= c('1', '2','3','4','5','6','7','8'), width = 0.85)
plot_with_color<-swimmer_plot(df=ClinicalTrialLength, id= "Study_Patients", end= "Time_since_surgery", name_fill = 'MGMT', id_order = 'Study_Patients', col="black", alpha= 0.75, width = .8)
event_plot<- plot_with_color+swimmer_points(df_points = ClinicalTrialEvents, id= 'ID', time= 'Day_since_surgery', name_shape = 'Event', size= 2.5, fill= 'white', col='black')
If you need more information please let me know!
Thank you!