Блог

У меня есть этот набор данных

 work_time_nurses <- list(
    list(name='Nurse 1', level=1, start= 8:00, end= 17:00),
    list(name='Nurse 2', level=1, start= 8:00, end= 17:00),
    list(name='Nurse 3', level=2, start= 12:00, end= 20:30),
    list(name='Nurse 4', level=3, start= 18:00, end= 1:00 )

operations_time <- list(
         list(name='Operations 1', level=1, start= 8:00, count = 10),
         list(name='Operations 2', level=1, start= 9:00, count = 9),
         list(name='Operations 3', level=1, start= 10:00, count= 5),
         list(name='Operations 4', level=1, start= 12:00, count= 9),
         list(name='Operations 5', level=1, start= 13:00, count= 0),
         list(name='Operations 6', level=1, start= 14:00, count= 0),
         list(name='Operations 7', level=1, start= 15:00, count= 9),
         list(name='Operations 8', level=1, start= 16:00, count= 10),
         list(name='Operations 9', level=1, start= 17:00, count= 8),
         list(name='Operations 10', level=1, start= 18:00, count= 5)
  

Список «work_time_nurses» — это время работы медсестер, а список «operations_time» — количество операций, которые начинаются за заданное время.

Я хотел бы графически представить распределение операций в течение дня и временных возможностей медсестер. График покажет, что peek of operations недоукомплектован или перегружен персоналом.

На графике должен быть период времени, а гистограмма операций по оси x и по одной оси y должна содержать персонал (медсестра 1…. Медсестра 4) и их график и вторая ось y должны быть числом операций.

Возможно ли построить что-то подобное?

Редактировать:

Я строю что-то вроде графика Ганта следующим образом

 ggplot(work_time_nurses, aes(x= name, fill = level)) 
      geom_rect(aes(x = name, xmin = as.numeric(name) - 0.45, xmax =        as.numeric(name)   0.45, ymin = start, ymax = end)) 
      coord_flip()
  

Он каким-то образом работает как график, но я не очень хорошо его понимаю.