小编Jir*_*Čep的帖子

我有一个客户 ID 列表，每个 ID 都有他们使用的独特产品的列表。理论上最多可以有约 150 种独特的产品。

df <- tibble(ID = c(1,1,1,2,2,3,3,4),
             prod = c("Prod1", "Prod2", "Prod3", "Prod1", "Prod4", "Prod3", "Prod5", "Prod2"))

由此，我需要获取每个 ID 的所有可能的产品组合，而不仅仅是最高级别（按 ID 分组）。也就是说，包括所有产品的组合（如 Expand_grid() 所做的那样），但也包括1,...,n 个元素的所有组合，其中n是 ID 具有的唯一产品的数量。

因此，最终数据集应如下所示：

df_results <- tibble(ID = c(1, 1, 1, 1, 1, 1, 1, 2, 2, 2, 3, 3, 3, 4),
                     combo = c("Prod1", "Prod2", "Prod3", "Prod1|Prod2", "Prod1|Prod3", "Prod2|Prod3", "Prod1|Prod2|Prod3",
                               "Prod1", "Prod4", "Prod1|Prod4",
                               "Prod3", "Prod5", "Prod3|Prod5",
                               "Prod2"))

我正在编写一个使用一些lubridate函数的函数。

但是，我不确定如何%within%从 lubridate 导入该函数。通常这很容易，因为我只使用 lubridate::function 。当我使用 %within% 运算符尝试此操作时，这不起作用。有没有办法在不加载整个包的情况下使用包中的运算符？