R 当我有相同的模式值或没有模式值时插入条件

下面的代码根据Methods 1, 2, 3 and 4获得的值生成mode值.但请注意，在某些情况下，我有正确的模式值，例如alternatives 3 and 4，但有错误的模式值，例如在alternative 5中，因为它有两个值7和两个值6，但mode的值显示为6.此外，在alternatives 11 and 12中，它没有mode值，因为这两种方法的值不同.对于这些不正确的情况，也就是说，当我对同一个备选方案有两个相等的值时，当我没有模式值时，我想把由Method 1获得的值视为mode值.我在下面插入了正确的输出.

可执行代码如下:

database<-structure(list(Alternatives = c(3, 4, 5, 6, 7, 8, 9, 10, 11, 12), 
                         Method1 = c(1L, 10L, 7L, 8L, 9L, 6L, 5L, 3L, 4L, 2L), Method2 = c(1L, 
8L, 6L, 7L, 10L, 9L, 4L, 2L, 5L, 3L), Method3 = c(1L, 
10L, 7L, 8L, 9L, 6L, 4L, 2L, 3L, 5L), Method4 = c(1L, 
9L, 6L, 7L, 10L, 8L, 5L, 3L, 2L, 4L)), class = "data.frame", row.names = c(NA, 
10L))

ModeFunc <- function(Vec) {
  tmp <- sort(table(Vec),decreasing = TRUE)
  Nms <- names(tmp)
  if(max(tmp) > 1) {
    as.numeric(Nms[1])
  } else NA}


output <- database |> rowwise() |> 
  mutate(Mode = ModeFunc(c_across(Method1:Method4))) %>% 
  data.frame()

> output
   Alternatives Method1 Method2 Method3 Method4 Mode
1             3       1       1       1       1    1
2             4      10       8      10       9   10
3             5       7       6       7       6    6
4             6       8       7       8       7    7
5             7       9      10       9      10    9
6             8       6       9       6       8    6
7             9       5       4       4       5    4
8            10       3       2       2       3    2
9            11       4       5       3       2   NA
10           12       2       3       5       4   NA

正确的输出将是:

Alternatives Method1 Method2 Method3 Method4 Mode
       3       1       1       1       1      1
       4      10       8      10       9      10
       5       7       6       7       6      7
       6       8       7       8       7      8
       7       9      10       9      10      9
       8       6       9       6       8      6
       9       5       4       4       5      5
      10       3       2       2       3      3
      11       4       5       3       2      4
      12       2       3       5       4      2