当我尝试生成一个新的数据框时,我遇到了一个问题,该数据框为我提供了一个从日期时间列开始的“保留”计数,其中包括当小时的无保留时间为0时。
这是我连接所有数据的数据框代码:
ReservasRealizadas <- function()
{
RR0 <- data.frame(RESERVE = SIM$INICIO.DE.RESERVA,
LEGALIZATION = SIM$LEGALIZACION, SESSIONS = SIM$SESIONES)
RR <- RR0[order(SIM$INICIO.DE.RESERVA),]
}
RESPOS <- ReservasRealizadas()
RESPOS
这是我得到的摘录。
RESERVE LEGALIZATION SESSIONS
<fctr> <int> <fctr>
2019-01-07 18:00:00 0 2
2019-01-07 20:00:00 0 1
2019-01-08 03:00:00 1 2
2019-01-08 07:00:00 0 1
2019-01-08 07:00:00 0 1
2019-01-08 07:00:00 0 1
2019-01-08 10:00:00 0 1
2019-01-08 11:00:00 0 2
2019-01-08 14:00:00 0 2
2019-01-08 14:00:00 0 1
我正在尝试计算每小时可获得的储备量,但我没有走更多的路,陷入困境。
RESPOS %>%
mutate(RESERVE = ymd_hms(RESERVE)) %>%
count(RESERVE1 = as.Date(RESERVE), Hour = hour(RESERVE)) %>%
group_by(RESERVE1) %>%
complete(RESERVE1, Hour = min(Hour):23, fill = list(n = 0)) %>%
arrange(RESERVE1, Hour)
我希望这样:
RESERVE1 Hour n
<date> <int> <dbl>
2019-01-01 00:00 1
2019-01-01 01:00 0
2019-01-01 02:00 0
2019-01-01 03:00 0
2019-01-01 04:00 0
2019-01-01 05:00 0
2019-01-01 06:00 0
2019-01-02 07:00 1
2019-01-02 08:00 0
2019-01-02 09:00 3