Производство гистограммы - вхождение событий через несколько часов

Question

у меня есть набор данных с указанием пациентов прибытия и отъезда в больнице:

arrival<-c("12:00","12:30","14:23","16:55","00:04","01:00","03:00") 
departure<-c("13:00","16:00","17:38","00:30","02:00","07:00","23:00") 

Я хочу, чтобы произвести гистограмму подсчета количества пациентов в каждых временных зонах (00: 00-01: 00; 01: 00-02: 00 и т. Д.) В больнице.

Так что я хотел бы получить что-то вроде между 12: 00- 12:59 есть 2 пациентов и т.д.

Answer 1

Вы можете попробовать это (изменить данные Пример немного, чтобы убедиться, что время вылета всегда больше чем время прибытия, будет хорошо, если у вас есть дата и время как в момент прибытия, так и в отъезде), на рисунке ниже метка времени 10:00 фактически представляет время от 10:00-10:59, вы можете изменить этикетки, если хотите.

arrival<-c("12:00","12:30","14:23","16:55","00:04","01:00","03:00") 
departure<-c("13:00","16:00","17:38","23:30","02:00","07:00","11:00") 
df <- data.frame(arrival=strptime(arrival, '%H:%M'),departure=strptime(departure, '%H:%M')) 
hours_present <- do.call('c', apply(df, 1, function(x) seq(from=as.POSIXct(x[1], tz='UTC'), 
                  to=as.POSIXct(x[2], tz='UTC'), by="hour"))) 
library(ggplot2) 
qplot(hours_present, geom='bar') + 
    scale_x_datetime(date_breaks= "1 hour", date_labels = "%H:%M", 
        limits = as.POSIXct(c(strptime("0:00", "%H:%M"), strptime("23:00", "%H:%M")), tz='UTC')) + 
    scale_y_continuous(breaks=1:5) + 
    theme(axis.text.x = element_text(angle=90, vjust = 0.5)) 

вы можете иметь 'histogram' вместо, как geom в qplot, чтобы получить следующую цифру: