如何计算 R 中多列中唯一值的数量？

如何解决如何计算 R 中多列中唯一值的数量？

我有一个大数据集 - 23500 行。每一行都有双重事件，我需要计算唯一事件。所以我需要为每行计算 30 列中的唯一事件 - 并为每行创建一个新列。如何以最简单的方式做到这一点？

解决方法

使用 apply 和 MARGIN = 1 循环遍历行，获取 unique 元素并找到 length 中的 base R

df1$new <- apply(df1,1,FUN = function(x) length(unique(x[complete.cases(x)])))

---

或者另一个选项是 rowwise 中的 dplyr

library(dplyr)
df1 %>%
   rowwise %>%
   mutate(new = n_distinct(c_across(everything()),na.rm = TRUE)) %>%
   ungroup

,

或者也许是这个：

library(dplyr)
library(purrr)

df %>%
  mutate(new = pmap_dbl(select(cur_data(),everything()),~ n_distinct(c(...),na.rm = TRUE)))