r - 计算每一列的唯一值

Question

我想返回数据框中每一列的唯一(不同)值的计数。例如，如果我有一张 table :

 Testdata <- data.frame(var_1 = c("a","a","a"), var_2 = c("b","b","b"), var_3 = c("c","d","e"))

 var_1 | var_2 | var_3
 a     | b     | c 
 a     | b     | d
 a     | b     | e

我希望输出是:

 Variable | Unique_Values
 var_1    | 1
 var_2    | 1
 var_3    | 3

我曾尝试使用独特的功能玩循环，例如

 for(i in names(Testdata)){
    # Code using unique function
 }

但是我怀疑有一种更简单的方法。

Answer 1

您可以使用 apply :

apply(Testdata, 2, function(x) length(unique(x)))
# var_1 var_2 var_3 
#     1     1     3