如何列出以正确顺序发生的所有事件排列？

Question

我有一个事件表，并标明它们何时发生。 他们已经按时间订购了。

   events <- data.frame(name=c("sow", "water", "harvest"), time=c("March", "May", "June"), stringsAsFactors = FALSE)

我想得到一个事件的所有 2 元素排列的列表，这些排列在彼此之后发生（没有重复）。

earlier    later
sow        water
sow        harvest
water      harvest

我知道 R 中的几个函数来获得某种组合或排列，但我没有发现任何考虑输入中出现顺序的函数。

是否有执行此操作的功能，还是我必须实现自己的功能？

Answer 1

我使用lapply得出了类似的结论

df <- lapply(1:nrow(events), function(x) {
              expand.grid(events$name[x], events$name[(x+1):nrow(events)])})
do.call(rbind, df[-nrow(events)])
#>    Var1    Var2
#> 1   sow   water
#> 2   sow harvest
#> 3 water harvest

Answer 2

假设您的列已经按所需顺序排列，您可以使用combn函数并转置：

t(combn(events$name, 2))

     [,1]    [,2]     
[1,] "sow"   "water"  
[2,] "sow"   "harvest"
[3,] "water" "harvest"

Answer 3

经过一番思考，我意识到在数字上使用 expand.grid 时，这相对容易实现。

events <- data.frame(name=c("sow", "water", "harvest"), month=c("3", "5", "6"), stringsAsFactors = FALSE)

ordered.pairs <- function(events.names.in.order) {

n <- length(events.names.in.order)
numbers.to.use <- 1:n
doubled.indices <- expand.grid(numbers.to.use, numbers.to.use)
doubled.indices <- doubled.indices[doubled.indices$Var1 < doubled.indices$Var2,]

event.pairs <- data.frame(earlier=events.names.in.order[doubled.indices$Var1], later=events.names.in.order[doubled.indices$Var2])

return(event.pairs)

}