我有一个 R 函数来找到对之间的最小值吗？

Question

我需要确定受支配的变量对：如果该对的两个值都低于数据中的其他对。

我已经尝试过min 或pmin 的功能，但我不确定它们是否最合适。

   a = matrix(c(50,70), ncol = 2)
   b = matrix(c(45,85), ncol = 2)

  df = rbind(a,b)

Dominance <- function(a){
   for (i in 1:nrow(a)) {
      for (j in 1:nrow(a)) {
         i1 <- rowSums(a[i,] < a[j,]) == ncol(a)
         a[i1,, drop = FALSE]
      }
   } 
   return(a) 
}
l = Dominance(df)

> l
  X1 X2
1 45 65
2 50 70

我希望这对 (45,65) 被删除。

Answer 1

一个选项是在大小相等的对象之间进行比较（<），然后得到rowSums，如果总和等于数据集的列数，则表示该行中的所有元素小于第二个数据对应行

f1 <- function(mat1, mat2) {
            i1 <- !rowSums(mat1 < mat2) == ncol(mat1)
            i2 <- !rowSums(mat2 < mat1) == ncol(mat2)
           rbind(mat1, mat2)[c(i1, i2),, drop = FALSE]
   }

b <- matrix(c(45,65), ncol = 2)
b1 <- matrix(c(45,85), ncol = 2)



f1(a, b)
#     [,1] [,2]
#[1,]   50   70

f1(a, b1)
#     [,1] [,2]
#[1,]   50   70
#[2,]   45   85