在 R 中使用组合打破平局

Question

我想使用以下逻辑打破多数/复数投票的平局：

1. 我有两个向量 vName 和 v2。 v1 和 v2 都是字符向量，有 5 行。
2. 如果出现以下情况，则出现平局： a- 如果 vName 中的每一行在 v2 中都有不同的对应值 b- 如果 vName 中的两行在 v2 中具有相同的对应值，另外两行具有相同的值（与前两行选取的值不同），并且最后一行在 v2 中具有不同的对应值，该值不同于前一行（这两行和另外两行）选取的两个不同值

例如： 比如说，我们有一个向量：

vName<-c("x1","x2","x3","x4","x5") 

v5<-c("John","Abraham","Isaac","Abraham","Isaac")
v4<-c("John","Abraham","Isaac","Isaac","Isaac")

第二行和第四行选择了值“Abraham”，第三行和第五行选择了值“Isaac”，而第一行选择了完全不同的值“John”。 如果发生这种联系（两种情况），则移至前一个向量 V (n-1)；在上述情况下，它应该移至 v4。 v4 中获得多数票的值是“Isaac”。 我找到了一个解决方案来打破第一个平局的情况，但对于上一个例子中提到的情况我却找不到。 我已经为此工作了好几天了，我真的需要它。预先非常感谢您。

Answer 1

您可以在数据框中使用分组和切片。

library(dplyr)
v1 <- c("x1","x2","x3","x4","x5") 
v2 <- c("John","Abraham","Isaac","Abraham","Isaac")
    
df <- tibble(v1,v2)
# group by the v2 column, select the head of each group and then sort by the v1 column
ties <- 
    df %>% 
    group_by(v2) %>% 
    slice_head(n=1) %>% 
    ungroup() %>% 
    arrange(v1)

ties
# A tibble: 3 × 2
  v1    v2     
  <chr> <chr>  
1 x1    John   
2 x2    Abraham
3 x3    Isaac 

如果您想选择随机条目而不是第一个条目，则可以将 slice_head 更改为 slice_sample。