如何在R/Python中创建一个脚本，以在一天中的某个时间返回最赚钱的潜在客户？

我有一个我联系过的潜在客户的历史列表，每个联系人的时间戳，以及我从每个电话中获得的相应利润。我想利用这些数据，根据我之前联系他们的时间，确定最赚钱的潜在客户。基本上，我想根据一天中的时间生成一个最赚钱的潜在客户列表，这样我就可以随时调用最赚钱的潜在客户

我希望在R或python中创建一个如下所示的提示符：

提示-“现在几点了？”

*然后我输入时间，我会看到一个“ProspectID”列表，从最高的“盈利能力”到最低的排序，可能只显示前50名

我有3列和100000条记录- “当日时间”-UTC时间 “prospectID”-我希望成为目标的潜在客户的ID “盈利能力”-预期利润的金额

---

由于我们没有太多关于您的数据的信息（请参阅我评论中的链接，为我们提供一个最小的数据集，屏幕截图不容易在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)
)

---

嗨，你的问题是什么？你的密码在哪里？请查看如何创建一个脚本，以便我们能够更轻松地帮助您。我想问的是如何在R中创建一个脚本，以根据一天中的时间返回最赚钱的潜在客户？例如，如果提示我输入一天中的时间，并输入13:20，我希望显示该时间内按盈利顺序排列的潜在客户列表。谢谢，我想我很接近了，但由于某种原因，我在运行最后一段代码时遇到了一个错误：“小时内出错（timeofday）：找不到函数“hour”>sapply（mydata，class）$

timeofday

[1]“POSIXct”“POSIXt”$prospectID[1]“数值”$profitability[1]”数值“@JoeJohnson查看我的编辑，我忘了为

hour

函数添加

lubridate

包。好的，我想我解决了上述问题-但现在收到了以下错误：（函数（类，fdef，mtable）中的错误：无法为签名的函数“filter”找到继承的方法”“data.frame”，“logical”“@JoeJohnson在尝试将S4泛型函数应用于不存在已定义S4方法的类的对象时，将出现此错误。请使用

dplyr:：filter

而不是

filter

。您可能有一个包已导入函数

filter

，将该函数从

dplyr

中屏蔽。

library(dplyr)
library(lubridate)

hour <- as.numeric(readline(prompt="Hour: "))
df %>% 
  filter(hour(timeofday) == hour) %>%
  arrange(-profitability)