gantt type plot combined with bar plot

Question

I have this data set

work_time_nurses <- list(
    list(name=\'Nurse 1\', level=1, start= 8:00, end= 17:00),
    list(name=\'Nurse 2\', level=1, start= 8:0