Поскольку у нас мало информации о ваших данных ( см. Ссылку в моем комментарии, чтобы предоставить нам минимальный набор данных, снимок экрана нелегко импортировать в R или Python ), я предположил, что выимел (или мог импортировать) фрейм данных, похожий на этот, с записями всех за тот же день:
df <- data.frame(
timeofday = hms::as_hms(c("18:47:22","16:39:58", "07:30:05")),
prospectID = c(1, 2, 3),
profitability = runif(3)
)
с использованием пакета dplyr
, вы могли бы попросить пользователя указать конкретный час, отфильтровать ваши данныекадр соответственно и порядок по доходности:
library(dplyr)
library(lubridate)
hour <- as.numeric(readline(prompt="Hour: "))
df %>%
filter(hour(timeofday) == hour) %>%
arrange(-profitability)