當我有相同的模式值或沒有模式值時插入條件

下面的代碼mode根據 獲得的值生成值Methods 1, 2, 3 and 4。但請注意，在某些情況下，我有正確的模式值，例如 ，alternatives 3 and 4但不正確的模式值，例如 in alternative 5，因為它有兩個值 7 和兩個值 6，但mode值顯示為 6。此外，在 中alternatives 11 and 12，它有沒有mode值，因為它對兩種方法都有不同的值。因此，對于這些不正確的情況，也就是說，當我有 2 個相同的替代值相等的值并且我沒有眾數值時，我想將獲得的值視為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

uj5u.com熱心網友回復：

您可以使用一些常規mode()功能，

mode <- function(x) {
  ux <- unique(x)
  tb <- tabulate(match(x, ux))
  ux[tb == max(tb)]
}

ifelse并使用in更新值mapply。

mds <- apply(database[-1], 1, mode) |> setNames(database$Alternatives)
mapply(\(x, y) ifelse(length(x) > 1, y, x), mds, database$Method1)
# 3  4  5  6  7  8  9 10 11 12 
# 1 10  7  8  9  6  5  3  4  2 

所以，它可能看起來像這樣：

database |>
  cbind(Mode=mapply(\(x, y) ifelse(length(x) > 1, y, x), 
                    apply(database[-1], 1, mode), 
                    database$Method1))
#    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    7
# 4             6       8       7       8       7    8
# 5             7       9      10       9      10    9
# 6             8       6       9       6       8    6
# 7             9       5       4       4       5    5
# 8            10       3       2       2       3    3
# 9            11       4       5       3       2    4
# 10           12       2       3       5       4    2

標籤：r

上一篇：為什么這段代碼不使用ggplot在R中創建熱圖？

下一篇：保留只出現一次的向量元素或矩陣列