ลองสเปนเซอร์รี้ดครับ R รหัสด้านล่างนี้

> table(stack(df))
      ind
values ID1 ID2 ID3
     a   2   1   0
     b   1   2   3
     c   3   2   1
     d   2   1   2
     e   1   0   2

ข้อมูล

> dput(df)
structure(list(ID1 = c("a", "a", "b", "c", "c", "c", "d", "d", 
"e"), ID2 = c("a", "b", "b", "c", "c", "d", NA, NA, NA), ID3 = c("b",
"b", "b", "c", "d", "d", "e", "e", NA)), class = "data.frame", row.names = c(NA,
-9L))

ทางเลือกกับ tidyverse -reshape เพื่อ'นาน'รูปแบบกับ pivot_longerเอา count และ reshape กลับไปที่'กว้าง'รูปแบบกับ pivot_wider

library(dplyr)
library(tidyr)
df %>%
   pivot_longer(everything(), values_drop_na = TRUE, values_to = 'Samples') %>%
   count(name, Samples) %>% 
   pivot_wider(names_from = name, values_from = n, values_fill = 0)

-ส่งออก

# A tibble: 5 × 4
  Samples   ID1   ID2   ID3
  <chr>   <int> <int> <int>
1 a           2     1     0
2 b           1     2     3
3 c           3     2     1
4 d           2     1     2
5 e           1     0     2

ข้อมูล

df <- structure(list(ID1 = c("a", "a", "b", "c", "c", "c", "d", "d", 
"e"), ID2 = c("a", "b", "b", "c", "c", "d", NA, NA, NA), ID3 = c("b",
"b", "b", "c", "d", "d", "e", "e", NA)), class = "data.frame", 
row.names = c(NA,
-9L))