r - 计算每行唯一值的数量

Question

这个问题在这里已经有了答案:





Count of unique elements of each row in a data frame in R

(3 个回答)


4年前关闭。




我想计算每行唯一值的数量。

例如使用此数据框:

example <- data.frame(var1 = c(2,3,3,2,4,5), 
                  var2 = c(2,3,5,4,2,5), 
                  var3 = c(3,3,4,3,4,5))

我想添加一个列来计算每行唯一值的数量；例如第一行是 2(因为第一行有 2 和 3)，第二行是 1(因为第二行只有 3)。

有谁知道一个简单的代码来做到这一点？到目前为止，我只找到了计算每列唯一值数量的代码。

Answer 1

此 apply函数返回每行中唯一值数量的向量:

apply(example, 1, function(x)length(unique(x)))

您可以使用以下两种方式之一将其附加到您的 data.frame (如果您想将该列命名为 count ):

example <- cbind(example, count = apply(example, 1, function(x)length(unique(x))))

或者

example$count <- apply(example, 1, function(x)length(unique(x)))